如何在VB中连接SQL数据库

Question

使用ADO.CONNECTION对象
dim cn as new adodb.connection
cn.open strconnection
strconnection是连接串，可以通过ADODC控件中build connection string得到

Answer 1

dim conn as new Adodb.connection
dim constr as stringconstr="provider=SQLOLEDB.1;database=pubs;UID=sa;PWD=;"
with conn
   .provider="SQLOLEDB.1"
   .connectionstring=constr
   .open
end with

Answer 2

dim conn as new Adodb.connection
dim constr as stringconstr="provider=SQLOLEDB.1;database=pubs;UID=sa;PWD=;"
with conn
   .provider="SQLOLEDB.1"
   .connectionstring=constr
   .open
end with

Answer 3

Dim mydb As Database
 Dim mydynaset As Dynaset
    Private Sub Form_Load()
       Set mydb = OpenDatabase("", False, False, "ODBC;  DSN=Myserver; WSID=LCL; DATABASE = sales")
       Set mydynaset = mydb CreateDynaset("Select*from Customers")
     End Sub

Answer 4

strConn = "driver={sql server};server=" & ServerName & ";uid=;pwd=;database=rt_vodview"
    conn.Open strConn