vb怎样联接到了一个SQLSERVER2000的数据库上?

Question

vb怎样联接到了一个SQLSERVER2000的数据库上?

Answer 1

Option Explicit
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
   Dim strConn As String
   'User ID登陆ID
   'Data Source 服务器名称
   'Initial Catalog数据库名称
   strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=pubs;Data Source=LocalHost"
   Conn.CursorLocation = adUseClient
   Conn.Open strConn
   
   If Rs.State <> adStateClosed Then Rs.Close
   Rs.Open "Select * from jobs", Conn, adOpenStatic, adLockOptimistic
   
   Set Me.DataGrid1.DataSource = Rs
End Sub

Answer 2

HEHE!
怎么没有中文注释了?

Answer 3

SQL连接 
    Dim strConn As String
    strconn = "Provider=SQLOLEDB.1;Password= 密码 ;Persist Security Info=True;User ID= 用户名 ;Initial Catalog= 数据库名称 ;Data Source= 服务器名称 "
    conn.ConnectionString = strconn 
    conn.Open

Answer 4

Set cnn = New ADODB.Connection
    cnn.Open "Provider=SQLOLEDB.1;Password=密码;User ID=用户名;Initial Catalog=库名;Data Source=服务器名" '调用连接对象的open方法打开连接