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

770312 2001-10-11 12:21:47
我想问一下:
我在ACCESS中有一个名叫TEL的表有两个字段( 姓名 年龄)
在vb中当我不断输入姓名 年龄两个文本框内容后得到的数据就加入
TEL的表中,用data控件如何实现与TEL的连接?姓名的文本框的数据
如何与TEL表中的姓名相对应呢?
要做一些什么工作?代码如何写呢?
能否尽可能详细的点?本人刚入门!
谢谢!!!
...全文
65 3 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
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)

好了大概就这样了。
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,至此,大功告成!

1,217

社区成员

发帖
与我相关
我的任务
社区描述
VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧