把access连接vb怎样改成sql连接vb?急求答

Question

把access连接vb怎样改成sql连接vb?急求答

Answer 1

sql连接参考：'混合验证方式的连接：
    "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=登陆用户名;Password=登录密码;Initial Catalog=数据库名;Data Source=服务器别名/IP"
    '集成验证的连接：
    "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=服务器别名/IP"

Answer 2

楼主写反了吧。
是VB连接ACCESS,SQL

Answer 3

Set cn = New ADODB.Connection
Set rs1 = New ADODB.Recordset   'majorinfo
cn.Open "dsn=duanxin; uid=;pwd=;"
rs1.Open "select * from name1", cn, adOpenStatic, adLockOptimistic
Do While Not rs1.EOF
rs1.MoveNext
Loop
然后在引用microsoft ActiveX Data Objects 2.6 library 你就可以用了~然后在用SQL语句来调用你的表~

Answer 4

If (gnIsNetOrNot = 1) Then '表明是网络版
    On Error GoTo err:
   gcnLeaguers.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;User ID=" & dataname & ";password=" & pwd & ";Initial Catalog=longtan;Data Source= " & servername & " "
   gcnLeaguers.ConnectionTimeout = 5
   gcnLeaguers.Open
 ElseIf (gnIsNetOrNot = 0) Then '单机版
   If (Right(App.Path, 1) <> "\") Then
         gsCurConnectedMdb = App.Path & "\longtan.mdb"
   Else
         gsCurConnectedMdb = App.Path & "longtan.mdb"
   End If        gsCurMdbFileName = Dir("" & gsCurConnectedMdb & "")
        If Len(gsCurMdbFileName) <> 0 Then
            gcnLeaguers.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & gsCurConnectedMdb & ";Persist Security Info=False" '未加密码
            gcnLeaguers.ConnectionTimeout = 5
            gcnLeaguers.Open
        Else
           MsgBox "数据库连接出错！", vbCritical + vbOKOnly, "龙潭监狱巡更报警系统"
           Exit Sub
        End If   
   End If