lwphoenix
11 de Septiembre del 2003

por faaaaaaa!!, yo soy experta en Delphi y ahora estoy migrando a VB asi q entenderan mi sufrimiento si alguna vez migraron de uno a otro lenguaje. Tengo declarados en el module la base de datos con mi connect y mis recordset, sin embargo en el formulario no me permite usarlos!; porque?
he aqui mi codigo en el module:
Dim BDDavia As New ADODB.Connection
Dim rsVendedores As New ADODB.Recordset

Public Sub abrirSQL()
Dim StrCnxn As String
StrCnxn = "Data Source = DAVIA; Initial Catalog=;User Id=;Password=;"
BDDavia.Open StrCnxn

End Sub

Public Sub Cargar()
rsVendedores.CursorLocation = adUseClient
rsVendedores.Open "Select * from vendedores", BDDavia, adOpenKeyset, adLockOptimistic, adCmdText
msgbox("Ya abrio")
End Sub

y desde la frmprincipal yo ejecuto las funciones, y SI ABRE LAS TABLAS, pero desde mi frm me marca que el objeto no existe o no esta declarado:

Private Sub Form_Load()
If BDDavia.State = adStateOpen Then
If rsVendedores.State = adStateOpen And rsVendedores.RecordCount <> 0 Then

Set DataGrid1.DataSource = rs
DataGrid1.ReBind
End If

End Sub

¿que pasa??
MIL GRACIAS!

sdemingo
11 de Septiembre del 2003

No deckares la cennection y el recordset como dim en el modulo, hazlo como global si quieres usarlas desde otros formularios.

Global BDDavia As New ADODB.Connection
Global rsVendedores As New ADODB.Recordset

Un saludo

LWPHOENIX
11 de Septiembre del 2003

oye ya quedo esta mugre muchas gracias!!