| Usuario |
Ayuda |
osvaldo
1 Mensaje(s) |
| Enviado - 12/4/2002 |
| |
| Necesito información sobre acceso y manejo de base de datos SQL desde Visual Basic, mediante instrucciones directas (utilizando VB como lenguaje alfitrión |
| |
|
Avatar
50 Mensaje(s)
|
| Enviado - 17/4/2002 |
| |
Espero que este codigo te sirva:
'-------------------------------------------------
Private Sub Form_Load()
' Asignar el nombre de la base de datos
' (si la aplicación se ejecuta en el directorio raiz, quitar el \)
sBase = App.Path & "\db2000.mdb"
' Crear los objetos
Set cnn = New ADODB.Connection
Set rst = New ADODB.Recordset
cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & sBase
rst.Open "SELECT * FROM Table1", cnn, adOpenDynamic, adLockOptimistic
' Si se quiere usar los Text1 ligados al Recordset
#If TextLigados Then
' Conectar manualmente los Text1 al recordset
Dim i As Long
' Asignar el recordset al que estarán los datos conectados
' Esto funciona igual que si se conectaran a un DataControl,
' Por tanto no hay que preocuparse de actualizar el contenido, etc.
For i = 0 To 2
Set Text1(i).DataSource = rst
Next
' Asiganr los nombres de los campos
Text1(0).DataField = "Nombre"
Text1(1).DataField = "e-mail"
Text1(2).DataField = "Comentario"
'
' Deshabilitar el botón de Actualizar
cmdUpdate.Enabled = False
#End If
End Sub
'------------------------------------------------- |
| |
|
|
|
