Código:
Sorry por la pregunta,pero soy principiante en visual basic,como puedo solucionar el error?variable de tipo object o la variable de bloque With no esta establecida
gracias
uso mysql
visual basic 6.0
Este codigo lo declaro en la parte de general
Código PHP:
Public Rs As ADODB.Recordset
Public con As Connection
Function conexion()
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=prueba;connection="
con.Open
End Function
Código PHP:
Private Sub Command1_Click()
conectar = conexion()
Rs.Open "select * from probando", con, adOpenStatic, adLockOptimistic
Text1.Text = Rs.Fields("codigo")
Text2.Text = Rs.Fields("nombre")
End Sub
Código PHP:
Rs.Open "select * from probando", con