vb怎么连接数据库

[chujingbo]

vb怎么连接数据库vb怎么连接数据库vb怎么连接数据库vb怎么连接数据库

[haipingma]

專案-->引用-->Microsoft ActiveX Data object 2.x Library
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

cn.CursorLocation = adUseClient
cn.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(local)"
rs.Open "select * from Orders", cn, adOpenKeyset, adLockReadOnly

[奔跑9999]

使用ADO连接
專案-->引用-->Microsoft ActiveX Data object 2.x Library
Dim Conn As New ADODB.Connection
Dim Rs As ADODB.Recordset
Set Rs = New ADODB.Recordset
Dim Strsql As String '定义要查询的sql语句
With Conn
.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=."
.CommandTimeout = 0
.Open
End With

Strsql = "select * from Orders"

Rs.Open Strsql, Conn, adOpenKeyset, adLockReadOnly
If Rs.EOF Then
MsgBox "No Data"
Else
MsgBox "Have Data"
End If
Rs.Close
Set Rs = Nothing
Conn.Close
Set Conn = Nothing

[chenyu5188]

UP楼上两位说的不错

[chenfeile]

我要说的他们都说啦

[lsunxiaohong]

可以使用ADO控件,只要设置其属性即可.

[我看你有戏]

專案-->引用-->Microsoft ActiveX Data object 2.x Library
找不到啊

[yugo_xu]

你要連什么数据库也请说清楚呀

[我看你有戏]

Dim Rs As ADODB.Recordset

这句话报错，无效外部过程

[我看你有戏]

搞定了，谢谢

[daisy8675]

Dim Rs As ADODB.Recordset

这句话报错，无效外部过程
／／
工程-->引用-->Microsoft ActiveX Data object 2.５ Library

[byhum]

无效外部过程
你没有引用Microsoft ActiveX Data object 2.X Library肯定是无效的
就在引用的里面，这个2.X有可能是2.5,2.6,2.7，都行的
还有一种方法是你在部件里面找到ADODC，添加这个控件到工具栏，把它再拖动到
窗体上也就行了
就不用引用了