datasource y datafield con codigo
mi problema es este:
tengo una base de datos que puede cambiar de nombre y ruta; para abrirla uso un common dialog box, tambien uso en codigo la coneccion a esa base de datos asÃ:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
cdb1.ShowOpen
Rs.CursorType = adOpenDynamic
Rs.CursorLocation = adUseClient
Dim cadena As String
With cn
.Provider = "Microsoft.jet.oledb.3.51"
.ConnectionString = "Data Source= " & cdb1.filename
.Open
End With
sql = "SELECT * FROM calidad"
Rs.Open sql, cn, adOpenStatic, adLockReadOnly
Set Me.DataGrid1.DataSource = Rs
Set Rs = Nothing
qué hago para enlazar los datos a textboxs?
algo como text1.datasource... o algo.
gracias
tengo una base de datos que puede cambiar de nombre y ruta; para abrirla uso un common dialog box, tambien uso en codigo la coneccion a esa base de datos asÃ:
Private Sub Command1_Click()
Dim cn As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim sql As String
Set cn = New ADODB.Connection
Set Rs = New ADODB.Recordset
cdb1.ShowOpen
Rs.CursorType = adOpenDynamic
Rs.CursorLocation = adUseClient
Dim cadena As String
With cn
.Provider = "Microsoft.jet.oledb.3.51"
.ConnectionString = "Data Source= " & cdb1.filename
.Open
End With
sql = "SELECT * FROM calidad"
Rs.Open sql, cn, adOpenStatic, adLockReadOnly
Set Me.DataGrid1.DataSource = Rs
Set Rs = Nothing
qué hago para enlazar los datos a textboxs?
algo como text1.datasource... o algo.
gracias
