Question

vb中数据库连接的问题

Answer 1

在VB菜单→过程→引用→对象库 "Microsoft ActiveX Data Objects 2.5 Library"
'定义
Sub Command1_Click()
Const connStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
dim conn As New ADODB.Connection
dim Rs As New ADODB.Recordset
dim sql As string
conn.Open connStr & "【我的数据库路径及文件.mdb】"
'如果只是做新增功能，使用下一行代码即可
sql = "SELECT * FROM 虫害信息表"
'如果是要查询数据，才使用下一行含 WHERE 条件式的语句
'sql = "SELECT * FROM 虫害信息表 WHERE 虫害名称 ='" & Trim(TextBox1.Text) & "'"
Rs.Open sql, conn, adOpenKeyset, adLockPessimistic
If Not Rs.State = adStateOpen Then '确定数据库能顺利打开后，才省略这个判断
MsgBox "数据库没有开启。检查数据库的链接是哪儿出问题！"
exit sub
End If
‘数据库能开启才会继续往下一行运行
Rs.MoveLast: Rs.MoveFirst
‘这一行只是检查Rs是不是正常运行，整体代码完成后可以移除
MsgBox "记录集总共笔数：" & Rs.RecordCount
'开始新增一笔数据
'Rs.AddNew
'.......
'........
Rs.Update
'Rs.Refresh
End Sub

追问

我的是vb.net2008 引用里面没有 那个 只有adodb。。可以吗