Cómo usar DAO para crear bases de datos, tablas y agregar registros de modificación en VB6.0
Le damos un ejemplo de creación de una base de datos;
Agregue 3 botones en el formulario para ejecutar respectivamente, crear una base de datos y una tabla, agregar registros y modificar registros.
'Primero vaya al menú Proyecto - Referencia y verifique la Biblioteca de objetos Microsoft DAO 3.6
'El número de versión es 3.6, que depende de la situación específica de su computadora. cuanto más alta es la versión, más nueva es.
Opción explícita
Subcomando privado1_Click()
Atenuar MyWs como espacio de trabajo 'Espacio de trabajo
Atenuar MyDB como base de datos 'Objeto de base de datos
Atenuar MyDB como base de datos 'Objeto de base de datos
p>
Atenuar myTBL como TableDef 'Objeto de tabla de datos
Atenuar MyFid(9) como campo 'Objeto de campo
Atenuar i como entero
If Dir (App.Path amp; "\Experimental Database.mdb") lt；gt "" Luego elimine App.Path amp "\Experimental Database.mdb"
'Crear espacio de trabajo
'Crear archivo de base de datos
'Establecer MyDB = MyWs.Workspaces(0).CreateDatabase(App.Path amp; "\ FExperimental Database .mdb")
Establecer MyDB = MyWs.CreateDatabase(App.Path amp; "\Experimental Database.mdb", dbLangGeneral, dbEncrypt)
'Crear tabla
Establecer myTBL = MyDB.CreateTableDef("Tabla de datos del estudiante")
'Crear campo
Establecer MyFid(1) = myTBL.CreateField("ID del estudiante", dbText, 4 )
Establecer MyFid(2) = myTBL.CreateField("Nombre", dbText, 10)
Establecer MyFid(3) = myTBL.CreateField("Género", dbText, 2 )
Establecer MyFid(4) = myTBL.CreateField("Observaciones", dbText, 4)
Establecer MyFid(5) = myTBL.CreateField("Lugar de lugar", dbText , 10)
Set MyFid(6) = myTBL.CreateField("Año y mes de nacimiento", dbDate, 8)
Set MyFid(7) = myTBL.CreateField(" Dirección familiar", dbText, 40)
Set MyFid(8) = myTBL.CreateField("Número de contacto", dbText, 50)
Set MyFid(9) = myTBL.CreateField ( "Dirección de registro", dbText, 40)
'Agregar el campo a la colección Field
For i = 1 To 9
myTBL.Fields.Append MyFid( i)
Next i
'Agregar la tabla a la base de datos
MyDB.TableDefs.Append myTBL
End Sub
Subcomando privado2_Click()
Atenuar MyWs como espacio de trabajo 'Espacio de trabajo
Atenuar MyDB como base de datos '
Objeto de base de datos
Atenuar Rs como conjunto de registros 'Objeto de conjunto de registros
'Crear espacio de trabajo
Establecer MyWs = DBEngine.Workspaces(0)
'Crear archivo de base de datos
'Set MyDB = MyWs.Workspaces(0).CreateDatabase(App.Path amp; "\FExperimental Database.mdb")
Set MyDB = MyWs .OpenDatabase (App.Path amp; "\Experiment Database.mdb")
'Devolver el conjunto de registros
Set Rs = MyDB.OpenRecordset("Seleccionar * de la tabla de datos del estudiante")
Rs.AddNew
Rs.Fields("ID de estudiante") = "101"
Rs.Fields("Nombre") = "Zhang Laosan "
Rs.Fields("Género") = "Hombre"
Rs.Fields("Observaciones") = "Registrado"
Rs.Fields( "Lugar de nacimiento") = "Jiangsu"
Rs.Fields("Fecha de nacimiento") = #16/11/1992#
Rs.Fields("Dirección particular") = "Habitación 2001, No. 1000, Changjiang Road"
Rs.Fields("Número de contacto") = "12345678"
Rs.Fields("Dirección de la casa") = "No 1000, Changjiang Road Room 2001"
Rs.Update
End Sub
Subcomando privado3_Click()
Atenuar MyWs como espacio de trabajo. 'Espacio de trabajo
p>Atenuar MyDB como base de datos 'Objeto de base de datos
Atenuar Rs como conjunto de registros 'Objeto de conjunto de registros
'Crear espacio de trabajo
Establecer MyWs = DBEngine.Workspaces(0)
'Crear archivo de base de datos
'Set MyDB = MyWs.Workspaces(0).CreateDatabase(App.Path amp; "\FExperimental Database. mdb")
Establecer MyDB = MyWs.OpenDatabase(App.Path amp; "\Experimental Database.mdb")
'Devolver el conjunto de registros
Establecer Rs = MyDB.OpenRecordset ("Select * From Student Data Table")
'Ubique el registro a modificar
Rs.FindFirst "Student ID='101'"
Si Rs.NoMatch Entonces
'No se encuentra el registro que buscas
MsgBox ("El registro que buscas no existe:")
Else
'Encuentra el registro que buscas y modifica uno o más campos
Rs.Edit
Rs.Fields("Place de origen") = "Zhejiang"
Rs.Fields("fecha de nacimiento") = #1/28/1991#
R
s.Update
MsgBox ("¡Modificación exitosa!")
End If
End Sub