在菜单Project-Reference中选中 Microsoft ActiveX DataObject 2.7 LibraryDim adoConn As ADODB.Connection dim strConn as StringSet adoConn = New ADODB.Connection adoConn.CursorLocation = adUseClient strConn="Provider=SQLOLEDB.1;Data Source=TEMP;Initial Catalog=TEST;User ID=;Password="
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
'工程--->引用--->Microsoft ActiveX Data Object 2.x(版本号) Dim CN As New ADODB.Connection '定义数据库的连接 Dim Rs As New ADODB.Recordset CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;" CN.Open Rs.CursorLocation = adUseClient Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic Set DataGrid1.DataSource = Rs
dim strConn as StringSet adoConn = New ADODB.Connection
adoConn.CursorLocation = adUseClient
strConn="Provider=SQLOLEDB.1;Data Source=TEMP;Initial Catalog=TEST;User ID=;Password="
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=pmserver;Initial Catalog=northwind;User Id=sa;Password=sa;" CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
Dim Rs As New ADODB.Recordset
CN.ConnectionString = "Provider=sqloledb;Data Source=服务器名;Initial Catalog=数据库;User Id=用户名;Password=密码;" CN.Open
Rs.CursorLocation = adUseClient
Rs.Open "select * from employees", CN, adOpenDynamic, adLockOptimistic
Set DataGrid1.DataSource = Rs
有 ODBC ,ADO...不过,强烈建议用 ADO...就引用... 之后写连接串... 楼上已说... :)
你先加载一个ADO控件,
选择 右击->属性->在第一个选项卡选择第三个单选按钮->单击Build(我用的英文版)
->在出现的对话框里选择你要的连接方式,点下一步,填写资料,确定之后,就可以找到
你要的连接串,如果有要改动的地方,改一下就可以了
2、用ado连接
3、用数据绑定连接