数据库连接

Question

如何在VB中连接SQL数据库

Answer 1

dim conn as new adodb.connection
dim rs as new adodb.recordset
conn.open"driver={sql server};database=databasename;server=servername;uid=sa;pws=password"

Answer 2

dim conn as new adodb.connection
dim rs as new adodb.recordset
conn.connectionstring="driver={sql server};"&_
             "server=server;uid=userer;pwd=12345;_
            database=aaaa"

Answer 3

Dim cn as ADODB.connection
   Dim rs As ADODB.Recordset
   Dim sql As String
   Dim iLoop As Integer
   ''要引用ADO和MSHFlexgrid控件   
   Set cn = New ADODB.Connection
     
 
    cn.Open "driver={SQL Server};server=127.0.0.1;uid=sa;pwd=;database=DBname"
     
     Set rs = New ADODB.Recordset
    
     sql = "select * from tablename"
  
     rs.Open sql, cn, adOpenStatic, adLockBatchOptimistic
 
     Set Me.mshflexgrid.DataSource = rs   'mshflexgrid是mshflexgrid控件 
     mshflexgrid.Refresh

Answer 4

http://expert.csdn.net/Expert/topic/1665/1665239.xml?temp=.9085504