ayuda sobre registros

moyito
23 de Septiembre del 2003
alguien me podria proporcionar un codigo para el envio y recepcion de registros de bd en acces para vb 6.0

sdemingo
23 de Septiembre del 2003
Public oConexion as New ADODB.Connection

Sub AbrirConexion()
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BaseDatos.mdb"
End Sub

Sub CerrarConexion()
oConexion.Close
End Sub

Sub generaSQL()
Dim rs as New ADODB.RecordSet
Dim strSql as String

' Abrimos la conexión con la BBDD
AbrirConexion

' CONSULTA
strSql = "Select * From Tabla"
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
MsgBox rs("nombreCampo")
rs.MoveNext
Loop
End If

' INSERCIÓN
strSql = "Insert INTO Tabla Values (Campo1, Campo2, Campo3)"
oConexion.Execute strSql

' MODIFICACIÓN
strSql = "Update Tabla Set nombreCampo = 'Valor'"
oConexion.Execute strSql

' ELIMINAR
strSql = "Delete From Tabla Where nombreCampo = 'Valor'"
oConexion.Execute strSql

' Cerramos la Conexión con la BBDD
CerrarConexion

End Sub

Espero que te ayude en algo.
En las sentencias Sql, los campos que sean de tipo texto deberán estar entre comillas simples, y los numéricos no.

Un saludo
sdemingo