VB创建access数据库
path1 = Dir( [App.Path](https://www.baidu.com/s?wd=App.Path&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPWF-nW0snWNBPjN9P1mv0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHc4P1fknWbv) & "\dat.mdb") '检测文件是否存在 If path1 = "" Then Text1.Text = "数据库dat.mdb不存在，请先建立数据库~！" Exit Sub End If Dim cat As New ADOX.Catalog '不用cat用另外一个名字也可以 Dim pstr As String Dim tb1 As New Table pstr = "Provider=Microsoft.Jet.OLEDB.4.0;" '不能把这里的4.0改为3.51 pstr = pstr & "Data Source=" & [App.Path](https://www.baidu.com/s?wd=App.Path&tn=44039180_cpr&fenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPWF-nW0snWNBPjN9P1mv0ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHc4P1fknWbv) & "\dat.mdb" pstr = pstr & ";Jet OLEDB:Database Password=123" cat.ActiveConnection = pstr tb1.Name = "学生信息" '表的名称 tb1.Columns.Append "姓名", adVarWChar, 20 '表的第一个字段 tb1.Columns.Append "年龄", adInteger '表的第二个字段 tb1.Columns.Append "性别", adVarWChar, 2 '表的第三个字段 tb1.Columns.Append "出生年月", adDate '表的第四个字段 cat.Tables.Append tb1 '建立数据表