Red de conocimiento informático - Material del sitio web - Cómo usar DAO para crear bases de datos, tablas y agregar registros de modificación en VB6.0

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

Establecer MyWs = DBEngine.Workspaces(0)

'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