魅蓝 陀螺仪:VB中如何如把几个不同TEXT中的内容加入到Access数据库中??

在VB编程中通常要与数据库打交道，对于数据量较小的应用，一般选用Access作为数据库，因为Access数据库比较简单，功能也比较齐全，数据的备份、拷贝都很方便，且程序发布时不需要额外单独安装其它的数据库管理软件。因此，在功能能够满足要求的条件下，Access数据库往往成为一些小型数据库软件的首选。

关于用VB操作Access库表的方法有多种，一般初学者往往会使用数据控件，许多资料上也大都以此作为操作Access数据库的起点来介绍，因为这个方法使用起来非常简单，但使用数据控件的方法在程序编码上往往不够灵活。现在介绍一下其它两种操作Access数据库的方法。

第一种：使用数据库对象

首先，要进行有关数据对象的声明，代码如下。

Dim MyWs As Workspace
Dim MyDB As Database
Dim 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.Connection
Dim LocRst1 As ADODB.Recordset

建立与数据库的链接，如果数据库没有口令，最后一行可以不写（写上也不会错）。

Set LocCnn1 = New ADODB.Connection
LocCnn1.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 = adOpenKeyset
LocRst1.LockType = adLockOptimistic
LocRst1.Open 〃SELECT ? FROM 表名〃? LocCnn1?adCmdText

提示：一般情况下，建议使用第二种方法。

这些text邦定到不同字段就行。利用vb的数据窗口向导实现这一点很方便的.

Private Sub Command1_Click()
Dim Msg, Style, Title, Help, Ctxt, Response, MyString
Dim aa As String
Dim bb As String
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=E:\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "select * from b1 "
Adodc1.Refresh
aa = Text1
bb = Text2
Msg = "字段1 ：" & Text1 & vbNewLine & "字段2 ：" & Text2 ' 定义信息。
Style = vbYesNo + vbCritical + vbDefaultButton2 ' 定义按钮。
Title = "你确认这些内容" ' 定义标题。
Help = "DEMO.HLP" ' 定义帮助文件。
Ctxt = 1000 ' 定义标题
Response = MsgBox(Msg, Style, Title, Help, Ctxt)
If Response = vbYes Then ' 用户按下“是”。
MyString = "Yes" ' 完成某操作。
Adodc1.Recordset.AddNew
Adodc1.Recordset(0) = Text1.Text
Adodc1.Recordset(1) = Text2.Text
Adodc1.Recordset.Update
Else ' 用户按下“否”。
MyString = "No" ' 完成某操作。
Text1.SetFocus
End If
End Sub

zdingyun说的完全对路