Error 13 en tiempo de ejecusion no coinciden los tipos
Publicado por Victor (6 intervenciones) el 20/02/2017 18:48:35
Buen día me podrian ayudar con el siguiente problema tengo una aplicacion conectada a microsoft access en la cual puedo cargar los datos pero a la hora de realizar una consulta me dice que los tipos de datos no coinciden a pesar de que en la base de datos esta en texto y en vb6 en string
Este es el codigo el error lo da en la consulta: miRecorset.Open "SELECT Nombre FROM usurios WHERE Nombre = '" And Buscar
Este es el codigo el error lo da en la consulta: miRecorset.Open "SELECT Nombre FROM usurios WHERE Nombre = '" And Buscar
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Private Sub Command4_Click()
Dim miconec As ADODB.Connection
Set miconec = New ADODB.Connection
miconec.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Aeses01-dt003\datos\practica base de datos\BASE DE DATOS2.MDB;Persist Security Info=False"
miconec.Open
Dim miRecorset As ADODB.Recordset
Set miRecorset = New ADODB.Recordset
Set miRecorset = New ADODB.Recordset
Dim Buscar As String
Buscar = Text1.Text
MsgBox (CStr(Buscar))
If Text1.Text <> "" Then
miRecorset.ActiveConnection = miconec
miRecorset.CursorType = adOpenDynamic
miRecorset.LockType = adLockBatchOptimistic
miRecorset.Open "SELECT Nombre FROM usurios WHERE Nombre = '" And Buscar
'Text1.Text = miRecorset!Nombre
Text2.Text = miRecorset!Apellido
Text3.Text = miRecorset!codigo
Text4.Text = miRecorset!telefono
End If
'End If
miRecorset.Close
End Sub
Valora esta pregunta
0