vb中数据库连接的问题最近正在学
1。工程->引用,添加Micrsoft ActiveX Data Objects 2。5 Library
2。在需要连接数据库的地方加入以下代码:
Dim conn As ADODB。Connection
Dim rs As ADODB。 RecordSet
If conn。State = adStateOpen Then conn。Close
Set conn = New ADODB。Connection
conn。ConnectionString = "Provider=Microsoft。 Jet。OLEDB。4。0;Data Source=" & DataPath & ";Pe...全部
1。工程->引用,添加Micrsoft ActiveX Data Objects 2。5 Library
2。在需要连接数据库的地方加入以下代码:
Dim conn As ADODB。Connection
Dim rs As ADODB。
RecordSet
If conn。State = adStateOpen Then conn。Close
Set conn = New ADODB。Connection
conn。ConnectionString = "Provider=Microsoft。
Jet。OLEDB。4。0;Data Source=" & DataPath & ";Persist Security Info=False"
'DataPath为数据库的路径(不好意思给错了,刚给成sql的连接字符串了)
conn。
Open
Set rs = New ADODB。RecordSet
rs。AddNew
rs。Fields("学号") = AddNumber'所要加入的学号
rs。Fields("姓名") = AddName'所要加入的姓名
rs。
UpDate
rs。Close
conn。Close
Set rs = Nothing
Set conn = Nothing。收起