1188
社区成员
关于访问数据库的简单问题？
我想问一下：
我在ACCESS中有一个名叫TEL的表有两个字段（ 姓名 年龄）
在vb中当我不断输入姓名 年龄两个文本框内容后得到的数据就加入
TEL的表中，用data控件如何实现与TEL的连接？姓名的文本框的数据
如何与TEL表中的姓名相对应呢？
要做一些什么工作？代码如何写呢？
能否尽可能详细的点？本人刚入门！
谢谢！！！
我在ACCESS中有一个名叫TEL的表有两个字段（ 姓名 年龄）
在vb中当我不断输入姓名 年龄两个文本框内容后得到的数据就加入
TEL的表中，用data控件如何实现与TEL的连接？姓名的文本框的数据
如何与TEL表中的姓名相对应呢？
要做一些什么工作？代码如何写呢？
能否尽可能详细的点？本人刚入门！
谢谢！！！
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
pp616 2001-10-11
做本地数据库我不推荐用那个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)
好了大概就这样了。
你可以用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)
好了大概就这样了。
ayusay 2001-10-11
刚才写的只是显示字段的代码。添加的代码，楼的的仁兄已经写了，你可以自己参考一下。呵呵
ayusay 2001-10-11
那得看你用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,至此，大功告成！
我是用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,至此，大功告成！
中国新一代信息技术创投生态研究报告2021.pdf 根据36 氪研究院数据，2016 年至2021 年上半年，中国新一代信息技术领域北京、广东和上海获投案例数分别为5,757 起、3,860 起和3,619 起，投资金额排名前三的省市依旧为北京、上海和广东，分别为5,589.86 亿元、2,587.47亿元和2,311.09 亿元。
北京凭借优惠政策、资本集聚、人才多样等优势成为引领全国创新式发展的策源地。诸多优势叠加的北京也培育了众多科技企业，在资本集聚、企业扎堆的情况下，北京地区新一代信息技术领域企业获投数量和金额均位列第一。
广东和上海无论是投资案例数还是投资金额均不相伯仲，但发展优势各有侧重。
上海凭借资本优势扶持了众多企业发展，根据基金业协会数据，截至2021 年6 月底，上海市私募基金管理规模为4.28 万亿元，位列全国第一。
以深圳为代表的广东则凭借粤港澳大湾区地理位置优势，带动当地企业创新发展，培育出一批技术过硬、产品符合市场预期的新一代信息技术企业。
除北上广外，重庆凭借综合科技创新能力链接更多企业和资本，成为西南地区新一代信息技术领域的领军者。根据《中国区域科技创新评价报告2020》，继2018 年之后，重庆综合科技创新水平指数保持全国第7 位。
