Que tal muchas gracias por la respuesta, solo que mira en mi consulta ya acomode el codigo como pienso q esta bien y que da de esta manera
Código:
Private Sub DatosDiagnostico()
Dim RECBDD As ADODB.Recordset
Dim sql As String, cadena As String
Dim X As Integer
cadena = Text1(0).Text
Call VisualizarPacienteDiagnosticos
sql = "SELECT * FROM pacientediagnostico WHERE idpaciente Like '" & cadena & "'"
Set RECBDD = New ADODB.Recordset
RECBDD.Open sql, BD, adOpenKeyset, adLockOptimistic
RECBDD.cursorLocation = adUseClient-------------------------------------------(linea que marca el error)
Text4.Text = RECBDD.RecordCount
If RECBDD.BOF = True Or RECBDD.EOF = True Then
MsgBox "Paciente sin Diagnosticos"
Exit Sub
End If
End Sub
Pero me marca este error "La opreacion no esta permitida si el objeto esta abierto"
Ahora no si de esa manera tenga q acomodar las intrucciones para obtener el resultado.
y bueno como me mandaste esa linea en la conexion aqui esta la manera en q hago mi conexion
Código:
Public Sub Conectar()
On Error GoTo Ver
Set BD = New ADODB.Connection
BD.ConnectionString = "driver={MySQL ODBC 3.51 Driver};" & _
"Server=localhost;" & _
"Port=3306;" & _
"Database=CONTROL_PACIENTES;" & _
"User=root;" & _
"Password=;" & _
"Option=3;"
BD.Open
Exit Sub
Ver:
MsgBox "Nº de error: " & Err.Number & " | " & Err.Description, vbCritical, "Control de errores"
Err.Clear
End Sub
Saludos y gracias por las respuesta
