各位大哥大姐
我是VB 新手
请问如何使用VB 连接数据库(SQL)
最好用ADO
望大家能写的详细一点谢谢

解决方案 »

  1.   

    首先要引用ADO工程库:工程-〉引用-〉点选 Microsoft ActiveX Data Objects 2.x Library程序中使用如下代码就可以了:    Dim Conn As New ADODB.Connection
        Dim ConnString As String    ConnString = "driver={SQL SERVER};server=" + ServerString + ";uid=" + UserString + ";pwd=" + PwdString + ";database=" + DbString
        Conn.Open ConnStringServerString为服务器地址,ip或者域名均可;UserString为SQL SERVER登录用户名;PwdString为该用户的密码;DbString为需要使用的数据库名。这样就可以连接上远程SQL SERVER了。
      

  2.   

    引用ADO工程库:工程-〉引用-〉点选 Microsoft ActiveX Data Objects 2.x LibraryDim Cnn As New ADODB.Connection
    Dim rsTemp As New ADODB.RecordsetCnn.ConnectionStr = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database;Data Source=192.168.151.119;Password="
    Cnn.Open这样就可以建立对远程或本地数据库的连接
      

  3.   

    sorry,写错了:
    应该是Cnn.ConnectionString = "Provider=sqloledb.1;Persist Security Info=False;User ID=sa;Initial Catalog=Database;Data Source=192.168.151.119;Password="
      

  4.   

    connstr = "Provider=SQLOLEDB.1;Password=" & Trim(txtpwd.Text) & ";Persist Security Info=True;User ID=" & Trim(txtUser.Text) & ";Initial Catalog=tkmanage;Data Source=192.168.0.1" 
        connsql.Open connstr
      

  5.   

    这种方法能连接到非局域网内(譬如说本市)的服务器吗???
    thx
      

  6.   

    强烈推荐使用DLL,把远程连结写在DLL内,客户端(开发人员)创建一个对象时在引用在后面(即","后面加上组件服务器IP即可)
      

  7.   

    dim cn as adodb.connection
    dim rs as adodb.recordset
    public ipaddress as string'要连接的服务器的ip地址或计算机的名称(装有sql的)
    dim strcnn as string
    set cn=new adodb.connection
    strcnn="provider=oledbsql.1;password=;id=;database=;" & "data source=;" & ipaddress
    cn.open strcnn
      

  8.   

    Public CN As ADODB.Connection
    Public RS As New ADODB.Recordset
    Set CN = New ADODB.Connection
        With CN
            .ConnectionString = "uid=sa;pwd=***;driver={SQL Server};server=" IP地址 ";database=数据库名
            .ConnectionTimeout = 30
            .Open
        End With
    RS.open "select * from 表名 where 条件",cn,3,3
      

  9.   

    我来给个新方法把:用SQL客户端,把dbnetlib.dll ,Dbnmpntw.dll ,ntwdblib.dll三个动态连接库,放在安装包里,在运行时把连接串写到注册表中,就可以直接用了。
    把下面这段代码放到标准模块中,把工程属性中的启动程序改为sub main()
    '引用API
    Public Const HKEY_LOCAL_MACHINE = &H80000002
    Public Const REG_SZ = 1
    Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
    Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
    Declare Function RegSetValueEx Lib "advapi32.dll" Alias "RegSetValueExA" (ByVal hKey As Long, ByVal lpValueName As String, ByVal Reserved As Long, ByVal dwType As Long, lpData As Any, ByVal cbData As Long) As Long   
    Sub Main()
     
    Dim hKey As Long
    RegCreateKey HKEY_LOCAL_MACHINE, "Software\Microsoft\MSSQLServer\Client\ConnectTo", hKey
    RegSetValueEx hKey, "服务器别名", 0, REG_SZ, ByVal "DBMSSOCN,IP地址,服务器SQLSERVER开的端口号(如果是默认的1433,可省略)", 28
    RegCloseKey hKey
      
        Set adoconn = New adodb.Connection
        sConnectionString = "Provider=MSDASQL;DRIVER={SQL Server};server=服务器别名;DATABASE=数据库;UID=用户名;PWD=密码"
     
       adoconn.Open sConnectionString
       syslogin.Show
    End Sub
      

  10.   

    直接用WIN2K中的接受拨号,远程拨入后,建立一个ODBC连接,存在于本机中,以后只要拨号即可