vb高速存储到access数据库中.docVIP

Private Sub Command1_Click()Dim s As StringDim Conn As New ADODB.ConnectionDim Rs As New ADODB.RecordsetConn.Open Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\mydb.mdb请将数据库名及路径换成你的实际数据库名及路径Dim UserName As StringDim Password As String s = Text1.TextIf s = 1 Or s = 2 ThenUserName = InputBox(请输入用户名)Password = InputBox(请输入用户密码)sql = Select * From [UserInfo] where User= UserName UserInfo请换成你的实际数据表名 Rs.Open sql, Conn, 1, 3If Rs.EOF ThenMsgBox 没有找到此用户ElseIf Rs(Password) = Password ThenIf s = 1 ThenMsgBox 123ElseIf s = 2 ThenMsgBox 456End IfElseMsgBox 密码错误End IfEnd IfEnd IfEnd Sub上面的例子实现了查询如果是要添加,删除,更新等操作,只要编写相应的SQL语句,再用Conn.Execute SQL 就可以了,如:添加的:SQL=Insert Into [UserInfo](User,Password) Values(aaaa,1234)Conn.Execute SQL 执行后,就添加了一条记录删除:SQL=Delete From [UserInfo] Where User=aaaaConn.Execute SQL 删除用户名为aaaa的用户记录更新:SQL=Update [UserInfo] Set Password=abcdefg Where User=aaaaConn.Execute SQL 执行后,修改用户aaaa的密码为abcdefg以上只是示例,在实际使用过程中,可以将一些内容用控件输入等方式进行,这样就有很大的灵活性了 动态创建数据库 引用 microsoft DAP 3.6 Object LibraryDim myDB As DAO.DatabaseSet myDB = CreateDatabase(App.Path + \111.mdb, dbLangGeneral) 如果不存在数据库Set myDB = OpenDatabase(App.Path + \111.mdb) 如果存在数据库Dim str_SQL As Stringstr_SQL = Create Table NewTable1(Field1 Text(10),Field2 Short)myDB.Execute str_SQLstr_SQL = Create Table NewTable2(Field1 Text(10),Field2 Short)myDB.Execute str_SQLmyDB.Close 向已经建好的数据库中添加记录建立数据库a，表名字b,字段c，文本格式,在窗体上画一command ,画一个文本框，这个代码就是将文本内容写入数据库 要先引用microsoft activeX data object 2.5 library代码如下： Private Sub Command1_Click()Dim cnDk As New ADODB.ConnectionDim strDk As StringDim rDk As New ADODB.RecordsetDim sql As String strDk = DBQ= App.Path \a.mdb;Driver={Microsoft Access Driver (*.mdb)};cnDk.Open strDksql = insert into b (c) values ( text1.text )cnDk.Execute sqlcnDk.CloseSet cnDk = NothingEnd Sub 在数据库中添加多条记录 只要可以进行输入文本的都可以改一下这些吧，你单击一次就提示输入一次，输完了自动保存改后Data1.Recordset.AddNewData1.Recordset.Fields(username) = trim(inputbox(请输入名字))Data1.Records