como hago un programa de inventario en basic desde un base de datos acces
como hago un programa de inventario en basic desde un base de datos acces
Menuda pregunta....
En primer lugar tendrás que crearte una conexión a la BBDD, yo te recomiendo que utilices ADO.
Dim oConexion as New ADODB.Connection
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BaseDatos.mdb"
Para cerrar la conexión, cuando acabes, oConexion.Close
Para tratar registros, es a través de los RecordSet.
Dim rs as New ADODB.RecordSet
Dim strSql as String
strSql = "Select * From Tabla"
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
El RecordSet (rs) te devuelve una colección con los registros recuperados en la consulta.
Para recorrer un recordset:
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
msgbox rs("NombreCampo")
Loop
End If
Para Borrar, Insertar o Modificar registros:
strSql = "Insert into..."
strSql = "Delete..."
strSql = "Update...
oConexion.Execute strSql
Creo que más no te puedo decir porque al final te haría yo la aplicación ;-)
Un saludo
sdemingo
En primer lugar tendrás que crearte una conexión a la BBDD, yo te recomiendo que utilices ADO.
Dim oConexion as New ADODB.Connection
oConexion.Provider = "Microsoft.Jet.OLEDB.4.0"
oConexion.Open "C:BaseDatos.mdb"
Para cerrar la conexión, cuando acabes, oConexion.Close
Para tratar registros, es a través de los RecordSet.
Dim rs as New ADODB.RecordSet
Dim strSql as String
strSql = "Select * From Tabla"
rs.Open strSql, oConexion, adOpenKeyset, adLockOptimistic
El RecordSet (rs) te devuelve una colección con los registros recuperados en la consulta.
Para recorrer un recordset:
If rs.RecordCount <> 0 Then
Do While Not rs.EOF
msgbox rs("NombreCampo")
Loop
End If
Para Borrar, Insertar o Modificar registros:
strSql = "Insert into..."
strSql = "Delete..."
strSql = "Update...
oConexion.Execute strSql
Creo que más no te puedo decir porque al final te haría yo la aplicación ;-)
Un saludo
sdemingo
