关于访问数据库的简单问题？

[770312]

我想问一下：
我在ACCESS中有一个名叫TEL的表有两个字段（ 姓名 年龄）
在vb中当我不断输入姓名 年龄两个文本框内容后得到的数据就加入
TEL的表中，用data控件如何实现与TEL的连接？姓名的文本框的数据
如何与TEL表中的姓名相对应呢？
要做一些什么工作？代码如何写呢？
能否尽可能详细的点？本人刚入门！
谢谢！！！

[ayusay]

那得看你用DAO连接，还是用ADO了。
我是用ADO的，先写ADO的方法吧（估计大家都用ADO吧）

你所说的方法，叫做数据绑定（Data Bound)，我感觉并不好用，但在初学时，确定比较简单。
单纯控件方法：
在窗体中添加如下控件：
ADODC(ADODC1) DataGrid(DBGrid1) TextBox(Text1)
右击ADODC1,选择“属性”，设置数据连接。在数据提供处选择“Microsoft Jet OLEDB 3.51”（果有多个版本，请选择最高版本，最好是4.0及更高），然后 在数据连接属性中选择你的mdb文件，并填入用户名和密码（如有必要）
设定DBGrid的属性。在属性窗口中设定DataSourse为ADODC1
同上，设Text1的DataSourse为ADODC1,同时将Filed属性设为要绑定的字段。
很简单吧？

代码实现：
（在添加代码前需要在“工程->引用”中引用Microsoft ActiveX Data Object 2.1 Library”（或更高版本）及Microsoft ActiveX Data Object Recordset 2.1 Library”（或更高版本。不引用Recordset，在有安装有VB的系统上，程序可以正常运行，但在没有VB的环境中，程序运行时会提示“ADO找不到提供者”，所以建议在所有使用ADO连接的工程中引用该库）
使用ADODC控件：
dim Cnn as ADODB.connection
dim Rs as New ADODB.Recordset
dim strFileNamePath as String
set Cnn=New ADODB.connection
strFileNamePath="........" '此处为你的mdb文件的路径和文件名
Cnn.connectionStrint="provider=microsoft.jet.oledb.3.51;data source=" & strFileNamePath
cnn.open
Rs.CursorLocation=adUseClient
rs.open "select * from YourTable",cnn,adOpenDynamic,adLockOptimistic '此处使用SQL语句。如果想深入操作数据库，SQL的知识是必需的。
Adodc1.DataSource=RS
set DBGrid.Datasource=adodc1
dbgrid.refresh
set text1.datasource=adodc1 'Text绑定的代码可能不正确，因为我没这样用过
set text1.datafiled=你要使用的字段名 '你可以自己试一下，差不多的
text1.refresh

不使用Adodc控件：
dim Cnn as ADODB.connection
dim Rs as New ADODB.Recordset
dim strFileNamePath as String
set Cnn=New ADODB.connection
strFileNamePath="........" '此处为你的mdb文件的路径和文件名
Cnn.connectionStrint="provider=microsoft.jet.oledb.3.51;data source=" & strFileNamePath
cnn.open
Rs.CursorLocation=adUseClient
rs.open "select * from YourTable",cnn,adOpenDynamic,adLockOptimistic '此处使用SQL语句。如果想深入操作数据库，SQL的知识是必需的。
DBGrid.Datasource=RS
dbgrid.refresh
text1.text=RS！YourFiled 'YourFiled为你要使用的字段名

OK,至此，大功告成！

[ayusay]

刚才写的只是显示字段的代码。添加的代码，楼的的仁兄已经写了，你可以自己参考一下。呵呵

[pp616]

做本地数据库我不推荐用那个data控件。
你可以用dao（database activex object) 或是 ADO(activex data object)来做
用Dao的例子如下。
先引用"microsoft dao 3.6 library"
Dim db As Database
Dim rs As Recordset
Private Sub Form_Load()
Set db = OpenDatabase(数据库名)
Set rs = db.OpenRecordset(表名)
End Sub
添加数据只要在任何事件中加入以下代码即可
With rs
.AddNew
!字段1名 = txtname.Text
!字段2名 = txtage.Text
.Update
End With

引用Ado的例子
先引用"microsoft activex data object library"
Dim conn As ADODB.Connection
Private Sub Form_Load()
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=数据库名（包括路径）"
conn.Open
End Sub
添加数据只要在任何事件中加入以下代码即可
Dim sql As String
sql = "insert into 表名(字段1名,字段2名) values (值1,值2)"
conn.Execute (sql)

好了大概就这样了。