我写了一个程序,叫做网址收藏夹,但在我输入网站地址,网站名称和网站说明,点保存的时候,下次再次运行程序的时候,上次所保存的信息都丢失了,我网友说这个要写到数据库去才可以,但我不知道如何把信息写入到数据库去,我现在建了一个数据库,名叫form,表叫做表1,表里面有网站名称,网站地址,网站说明,我想问下,我要如何做才能把我在VB程序上保存的信息输入到数据库里?希望有一个说明和一个添加信息到数据库的VB源代码给我参考。因为我从没写过写入数据库方面的VB程序,但我现在很想此刻就想了解它是怎样做到的,希望大家帮帮我!
參考答案:下面是个例子,你参考下:
提示:由于用了app.path,所以你要把工程保存了才能调试,另外data.mdb必须存放在工程的跟目录下,生成.exe文件后,应该和.exe文件在同一个目录中。
Private Sub Command1_Click()
Set Conn = CreateObject("ADODB.Connection")
Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "data.mdb"
Conn.Open Connstr
Set Rs = CreateObject("adodb.recordset")
SQL = "select * from 表名"
Rs.Open SQL, Conn, 1, 3
Rs.addnew
Rs("字段名1") = "数据1"
Rs("字段名2") = "数据2"
Rs("字段名3") = "数据3"
Rs("字段名4") = "数据4"
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
End Sub