VB连接数据库
之一:ADO
首先要在“Project”中的“参照设定(N)”中追加Microsoft ActiveX Data Objects
Set conn = New ADODB.Connection
conn.ConnectionString = "Provider=SQLOLEDB;Persist Security Info=False;User ID=sa;password=softwise;Initial Catalog=VBNETtest;Data Source=DT-82-WIN7\SQL2005"
conn.Open
Set red = New ADODB.Recordset
With red
.ActiveConnection = conn
.Source = "select * from tb_user"
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open
End With
Set DataGrid1.DataSource = red