vb如何自动把内容添加到access2003中?急
来源:百度知道 编辑:UC知道 时间:2024/07/08 02:11:03
小弟邮箱:yxw237@163.com
首先要在你的工程里添加个引用。
点击 工程->引用 在出来的窗口里把
Microsoft ActiveX Data Objects 2.8 Library
项目前的复选框打上勾再点确定
然后在你的工程里添加个摸块,如果你的工程里有了摸块就直接到你的摸块里加上如下代码
Public conndate As New ADODB.Connection'声明一个全局型的数据库连接对象
Public conmdb As String'声明个全局型的字符串变量用来记录连接数据库的语句
Public rs As New ADODB.Recordset'声明个记录集对象
再到你的摸块里添加如下代码
Public Sub conn()'定义一个全局型的自定函数
conmdb = "provider=microsoft.jet.oledb.4.0;data source=D:\yxw\数据库\db1.mdb"'连接到你的数据库文件
conndate.Open (conmdb)'打开数据库
再到你的窗体加载事件里加上一行代码
conn
好了,下面该到你的text文本框控件的改变事件里加入写数据库的代码了,代码如下:
Private Sub Text1_Change()
Dim ss As String
ss = "insert into 运行信息 (信息内容)values('" & Text1.Text & "')"
conndate.Execute ss
End Sub
如果你的数据库里有两个以上的字段要写的话ss="insert into 这一行就得改一下
假如你的数据库里还第一个字段是“信息内容”第二个字段是“附加内容”而你要把text1里的东西加到“信息内容”字段里去,text2里的东西加到“附加内容”里去代码就要如下写了