ayuda sobre registros
alguien me podria proporcionar un codigo para el envio y recepcion de registros de bd en acces para vb 6.0
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
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