modulo de conexion de una BD y Visual basic

[chicho28]

Necesito un modulo donde este la conexion de la BD x Ejmplo NWIND y abrir desde un formulario la BD y una tabla.estoy en visual basic utilizando un adodc.

[chicho28]

Option Explicit
Dim cadenaconexion As String
Public conn As ADODB.Connection
Public tabla As New ADODB.Recordset
Public Sub conectar()
cadenaconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Set conn = CreateObject("ADODB.connection")
conn.ConnectionString = cadenaconexion
conn.CursorLocation = 3
conn.Open
Exit Sub
error:
Resume Next
End Sub


////////////////////////////////////////////////////////////////////////////
pero ahora quisiera una codificacion para abrir la tabla desde un formulario utilizando ado

[Avellaneda]

Iniciado por chicho28

Option Explicit
Dim cadenaconexion As String
Public conn As ADODB.Connection
Public tabla As New ADODB.Recordset
Public Sub conectar()
cadenaconexion = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Archivos de programa\Microsoft Visual Studio\VB98\NWIND.MDB;Persist Security Info=False"
Set conn = CreateObject("ADODB.connection")
conn.ConnectionString = cadenaconexion
conn.CursorLocation = 3
conn.Open
Exit Sub
error:
Resume Next
End Sub


////////////////////////////////////////////////////////////////////////////
pero ahora quisiera una codificacion para abrir la tabla desde un formulario utilizando ado

Ya tienes creado tu recordset ADO (llamado Tabla) lo único que queda es abrir el recordset y mostrarlo p.e. en un DataGrid:

Tabla.Open "Select * From [NombreDeLaTabla]", conn
Set DataGrid.DataSource = Tabla

[chicho28]

okey pero de igual no funciona l mismo error "no se puede utilizar esta conexion para esta operacion esta cerrada
////////////////////////////////////////////////////////////////////////////////////////////////////////////

tabla.ActiveConnection = conn
tabla.Open "select * from [clientes]", conn
Set DataGrid1.DataSource = tabla

[chicho28]

de igual no funciona "no se puede utilizar esta conexion para esta operacion"
************************************************** *******




tabla.ActiveConnection = conn
tabla.Open "select * from [clientes]", conn
Set DataGrid1.DataSource = tabla

[chicho28]

Iniciado por chicho28

de igual no funciona "no se puede utilizar esta conexion para esta operacion"
************************************************** *******




tabla.ActiveConnection = conn
tabla.Open "select * from [clientes]", conn
Set DataGrid1.DataSource = tabla

¿ a pero los datos quisiera vizualizar en cuadros de textos?

[Richerd]

la manera más fácil y como para comenzar a aprender es con Data, se vincula a través de las propiedades y luego utilizas un Grid para visualizar como tabla.

[Richerd]

puedes crear la base de datos en dbase, acces, excel

[Richerd]

yo por el contrario necesito como realizar consultas en visual basic, por ejemplo para llamar los datos de un usuario especifico.