不知道那位高手可以告诉我怎么用vb向access数据库写入数据啊！

热心网友

用VB操作Access库表的方法有多种，一般初学者往往会使用数据控件，许多资料上也大都以此作为操作Access数据库的起点来介绍，因为这个方法使用起来非常简单，但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。　　第一种：使用数据库对象　　首先，要进行有关数据对象的声明，代码如下。Dim MyWs As WorkspaceDim MyDB As DatabaseDim WordTab As Recordset 　　生成工作区，打开数据库，然后再根据需要打开相应的库表。Set MyWs = DBEngine。CreateWorkspace?″″? ″Admin″? ″″? dbUseJetSet MyDB = MyWs。OpenDatabase?数据库名称? False? FalseSet WordTab = MyDB。OpenRecordset?″表名″? dbOpenDynaset 　　这种方法的优点是代码比较简单，要求的环境为DAO 2。5/3。51，其中表名可以换成SELECT语句，即根据条件打开所需要的记录集，这种方法可脱离数据控件，可以比较方便灵活地操作数据库表，增加了程序的灵活性。　　提示：经过测试发现，这种方法只能打开Access97库表，对于Access2000库表却无能为力，会弹出库表格式不对的出错提示。另外，对数据环境的要求仍比较多。　　第二种：使用ADODB　　首先，声明一个链接变量，并根据需要声明记录集变量。Dim LocCnn1 As ADODB。ConnectionDim LocRst1 As ADODB。Recordset 　　建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。Set LocCnn1 = New ADODB。ConnectionLocCnn1。Open ″Provider=Microsoft。Jet。OLEDB。4。0User ID=Admin″ & _″Data Source=″ & App。Path & ″\数据库名称。mdb″& _″Mode=Share Deny NoneExtended Properties=''Persist Security Info=False″ & _″Jet OLEDB?Database Password='asp561rbc'″ 　　这种方法虽然代码长一些，但对数据环境要求低，且结构清晰，所编写的发布程序也大为减小。由于与链接SQL Server等数据库的方法一样，因而大量的操作数据库的代码相同，当数据库需要由Access扩充到一些大型数据库，或由一些大型数据库裁剪出一个简单数据库时，程序的移植会比较方便。　　另外，这种方法对于Access97及Access2000均能很好地支持，兼容性好。对于大量插入、删除、修改等操作，只在Connection层进行即可，既可提高速度又可减少代码。　　如果还要获取具体的记录集内容，则须再根据条件打开具体的库表，代码如下：Set LocRst1 = New ADODB。Recordset　 LocRst1。CursorType = adOpenKeysetLocRst1。LockType = adLockOptimisticLocRst1。Open ″SELECT ? FROM 表名″? LocCnn1?adCmdText 　　提示：一般情况下，建议使用第二种方法。 。

热心网友

毕业设计的时候到了，你是不是在做毕业设计啊！我毕业的时候就是做了一个基于VB的ACCESS数据库管理系统。把你的邮箱告诉我我把我的发给你！