Visual basic
Estoy realizando un prrgrama en visual basic 6.0 en el cual estoy haciendo una base de datos de varios clientes al guardarlos se guardan en la base de datos y se crea una carpeta en el disco duro, el problema que al cambiarle el nombre de cliente se cambia solo en la base de datos pero no se modifica el nombre de la carpeta, y al querer ingresar información o eliminarlo sale un mensaje así: " path not found" este es el código:
Public Function AltaCLIENTE(CLIENTE_ID As String, _
NOMBRE As String, _
ATENCION As String, _
DIRECCION As String, _
COLONIA As String, _
MUNICIPIO As String, _
CIUDAD As String, _
CP As String, _
RFC As String, _
LADA As String, _
TELEFONO As String, _
FAX As String, _
EMAIL As String, _
COND_ID As String, _
AGENTE_ID As String, _
COMISION As Single, _
LIMITE_CREDITO As Double, _
LISTA_ID As String, _
CONSIGNADO As String, _
FLETE As String, _
EDAD As String, _
MOROSO As Boolean, _
FORANEO As Boolean) As Boolean
Dim strSQL As String
Dim rsTempo As New ADODB.Recordset
Dim TranCount As Integer
Dim xID As Boolean
On Error GoTo Problema
TranCount = 0
rsTempo.Open "SELECT * FROM Pacientes WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount > 0 Then
Err.Raise 513, , "La Clave " & CLIENTE_ID & " del Paciente ya existe"
End If
rsTempo.Close
xID = False
While Not xID
rsTempo.Open "SELECT * FROM PACIENTES WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount > 0 Then
CLIENTE_ID = Val(CLIENTE_ID) + 1
Else
xID = True
End If
rsTempo.Close
Wend
GConexionVT.BeginTrans
TranCount = 1
FileSystem.MkDir GDirectorioDB & "\" & Trim((CLIENTE_ID)) & "-" & Trim(NOMBRE)
strSQL = "INSERT INTO Pacientes VALUES (" & _
"'" & CLIENTE_ID & "'," & _
"'" & NOMBRE & "'," & _
"'" & ATENCION & "'," & _
"'" & DIRECCION & "'," & _
"'" & COLONIA & "'," & _
"'" & MUNICIPIO & "'," & _
"'" & CIUDAD & "'," & _
"'" & CP & "'," & _
"'" & RFC & "'," & _
"'" & LADA & "'," & _
"'" & TELEFONO & "'," & _
"'" & FAX & "'," & _
"'" & EMAIL & "'," & _
"'" & COND_ID & "'," & _
IIf(MOROSO = "1", "TRUE", "FALSE") & "," & _
IIf(FORANEO = "1", "TRUE", "FALSE") & "," & _
IIf(Trim(AGENTE_ID) = "", "NULL", "'" & AGENTE_ID & "'") & "," & _
IIf(Trim(COMISION) = "", "NULL", COMISION) & "," & _
IIf(Trim(LISTA_ID) = "", "NULL", LISTA_ID) & "," & _
IIf(Trim(LIMITE_CREDITO) = "", "NULL", LIMITE_CREDITO) & "," & _
IIf(Trim(CONSIGNADO) = "", "NULL", "'" & CONSIGNADO & "'") & "," & _
IIf(Trim(FLETE) = "", "NULL", "'" & FLETE & "'") & ",NULL,NULL," & _
IIf(Trim(EDAD) = "", "NULL", "'" & EDAD & "'") & ")"
GConexionVT.Execute strSQL, , adExecuteNoRecords
GConexionVT.CommitTrans
AltaCLIENTE = True
GoTo Fin
Problema:
If TranCount = 1 Then GConexionVT.RollbackTrans
ValidaError
AltaCLIENTE = False
Fin:
If rsTempo.State = adStateOpen Then rsTempo.Close
End Function
Public Function CambiaCLIENTE(CLIENTE_ID As String, _
NOMBRE As String, _
ATENCION As String, _
DIRECCION As String, _
COLONIA As String, _
MUNICIPIO As String, _
CIUDAD As String, _
CP As String, _
RFC As String, _
LADA As String, _
TELEFONO As String, _
FAX As String, _
EMAIL As String, _
COND_ID As String, _
AGENTE_ID As String, _
COMISION As Single, _
LIMITE_CREDITO As Double, _
LISTA_ID As String, _
CONSIGNADO As String, _
FLETE As String, _
FOLIO As String, _
MOROSO As Boolean, _
FORANEO As Boolean) As Boolean
Dim strSQL As String
Dim rsTempo As New ADODB.Recordset
Dim TranCount As Integer
On Error GoTo Problema
TranCount = 0
rsTempo.Open "SELECT * FROM Pacientes WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount = 0 Then
Err.Raise 513, , "La Clave " & CLIENTE_ID & " especificada del Paciente no existe"
End If
rsTempo.Close
GConexionVT.BeginTrans
TranCount = 1
strSQL = "UPDATE Pacientes SET " & _
"NOMBRE = '" & NOMBRE & "'," & _
"ATENCION = '" & ATENCION & "'," & _
"DIRECCION = '" & DIRECCION & "'," & _
"COLONIA = '" & COLONIA & "'," &...
Public Function AltaCLIENTE(CLIENTE_ID As String, _
NOMBRE As String, _
ATENCION As String, _
DIRECCION As String, _
COLONIA As String, _
MUNICIPIO As String, _
CIUDAD As String, _
CP As String, _
RFC As String, _
LADA As String, _
TELEFONO As String, _
FAX As String, _
EMAIL As String, _
COND_ID As String, _
AGENTE_ID As String, _
COMISION As Single, _
LIMITE_CREDITO As Double, _
LISTA_ID As String, _
CONSIGNADO As String, _
FLETE As String, _
EDAD As String, _
MOROSO As Boolean, _
FORANEO As Boolean) As Boolean
Dim strSQL As String
Dim rsTempo As New ADODB.Recordset
Dim TranCount As Integer
Dim xID As Boolean
On Error GoTo Problema
TranCount = 0
rsTempo.Open "SELECT * FROM Pacientes WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount > 0 Then
Err.Raise 513, , "La Clave " & CLIENTE_ID & " del Paciente ya existe"
End If
rsTempo.Close
xID = False
While Not xID
rsTempo.Open "SELECT * FROM PACIENTES WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount > 0 Then
CLIENTE_ID = Val(CLIENTE_ID) + 1
Else
xID = True
End If
rsTempo.Close
Wend
GConexionVT.BeginTrans
TranCount = 1
FileSystem.MkDir GDirectorioDB & "\" & Trim((CLIENTE_ID)) & "-" & Trim(NOMBRE)
strSQL = "INSERT INTO Pacientes VALUES (" & _
"'" & CLIENTE_ID & "'," & _
"'" & NOMBRE & "'," & _
"'" & ATENCION & "'," & _
"'" & DIRECCION & "'," & _
"'" & COLONIA & "'," & _
"'" & MUNICIPIO & "'," & _
"'" & CIUDAD & "'," & _
"'" & CP & "'," & _
"'" & RFC & "'," & _
"'" & LADA & "'," & _
"'" & TELEFONO & "'," & _
"'" & FAX & "'," & _
"'" & EMAIL & "'," & _
"'" & COND_ID & "'," & _
IIf(MOROSO = "1", "TRUE", "FALSE") & "," & _
IIf(FORANEO = "1", "TRUE", "FALSE") & "," & _
IIf(Trim(AGENTE_ID) = "", "NULL", "'" & AGENTE_ID & "'") & "," & _
IIf(Trim(COMISION) = "", "NULL", COMISION) & "," & _
IIf(Trim(LISTA_ID) = "", "NULL", LISTA_ID) & "," & _
IIf(Trim(LIMITE_CREDITO) = "", "NULL", LIMITE_CREDITO) & "," & _
IIf(Trim(CONSIGNADO) = "", "NULL", "'" & CONSIGNADO & "'") & "," & _
IIf(Trim(FLETE) = "", "NULL", "'" & FLETE & "'") & ",NULL,NULL," & _
IIf(Trim(EDAD) = "", "NULL", "'" & EDAD & "'") & ")"
GConexionVT.Execute strSQL, , adExecuteNoRecords
GConexionVT.CommitTrans
AltaCLIENTE = True
GoTo Fin
Problema:
If TranCount = 1 Then GConexionVT.RollbackTrans
ValidaError
AltaCLIENTE = False
Fin:
If rsTempo.State = adStateOpen Then rsTempo.Close
End Function
Public Function CambiaCLIENTE(CLIENTE_ID As String, _
NOMBRE As String, _
ATENCION As String, _
DIRECCION As String, _
COLONIA As String, _
MUNICIPIO As String, _
CIUDAD As String, _
CP As String, _
RFC As String, _
LADA As String, _
TELEFONO As String, _
FAX As String, _
EMAIL As String, _
COND_ID As String, _
AGENTE_ID As String, _
COMISION As Single, _
LIMITE_CREDITO As Double, _
LISTA_ID As String, _
CONSIGNADO As String, _
FLETE As String, _
FOLIO As String, _
MOROSO As Boolean, _
FORANEO As Boolean) As Boolean
Dim strSQL As String
Dim rsTempo As New ADODB.Recordset
Dim TranCount As Integer
On Error GoTo Problema
TranCount = 0
rsTempo.Open "SELECT * FROM Pacientes WHERE PACIENTE_ID = '" & CLIENTE_ID & "'", GConexionVT, adOpenStatic, adLockReadOnly
If rsTempo.RecordCount = 0 Then
Err.Raise 513, , "La Clave " & CLIENTE_ID & " especificada del Paciente no existe"
End If
rsTempo.Close
GConexionVT.BeginTrans
TranCount = 1
strSQL = "UPDATE Pacientes SET " & _
"NOMBRE = '" & NOMBRE & "'," & _
"ATENCION = '" & ATENCION & "'," & _
"DIRECCION = '" & DIRECCION & "'," & _
"COLONIA = '" & COLONIA & "'," &...
1 Respuesta
Respuesta de Roberto Alvarado
1