MySQL - conectar mysql con visual basic 6

   
Vista:

conectar mysql con visual basic 6

Publicado por patricia (2 intervenciones) el 03/06/2008 06:15:16
gracias por la respuesta jose Ramon y si, el error que me da es en rs, ya que me muestra que la variable no esta definida.
pero si esta definida al principio del codigo checa, esta en los asteriscos que coloque y el error esta al final del codigo en las diagonales...

de todas maneras muchisimas gracias, igual y me doy una idea de donde puedo verificar este error.
gracias...

Option Explicit
Private Sub DataGrid1_Click()
**************************Public rs As ADODB.Recordset
Public con As Connection
Public Sub conectar()
Set con = New ADODB.Connection
con.ConnectionString = "driver={MySQL ODBC 3.51 Driver};server=localhost;uid=root;pwd=;database=multidatos;connection="
con.Open
End Sub
Sub registro()
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from ventas"
End With
End Sub

Private Sub Form_Load()
conectar
registro
//////////////////////////////////////////////////////Set DataGrid1.DataSource = rs
End Sub
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder
información
Otras secciones de LWP con contenido de MySQL
- Cursos de MySQL
- Temas de MySQL
- Chat de MySQL
información
Cursos y Temas de MySQL
- Developer's Guide Bacula
- Mysql Control Center
- Almacenar contraseñas en MySQL

RE:conectar mysql con visual basic 6

Publicado por Jose Ramon Castelo (12 intervenciones) el 04/06/2008 20:11:44
Hola de nuevo,

No entiendo muy bien el código, por lo que veo ¿Form_Load() está dentro de DataGrid1_Click()?

Yo pondría el Public rs As ADODB.Recordset justo después de Option Explicit.

Otra posibilidad es convertir Registro en una función:

Function registro() as ADODB.Recordset
Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
With rs
.ActiveConnection = con
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Open "select * from ventas"
End With
set registro=rs
End Function

De esta forma en Form_Load sería:
Private Sub Form_Load()
conectar
Set DataGrid1.DataSource = registro
End Sub

Espero haber ayudado.
Un saludo desde A Coruña (España)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar