请教：VB如何连接本地Sql Server？

Question

？

Answer 1

你可以先在本机上建立ODBC连接文件.然后通过ADO.CONNECTION对象连接该文件.注意:用户名和密码的输入. 然后就可以用SQL语句操作了.

Answer 2

Public CN As New ADODB.Connection
    With CN
      If .State = adStateOpen Then .Close
        .Mode = adModeReadWrite
        .CursorLocation = adUseClient
        .ConnectionString= "Provider=SQLOLEDB.1;password=;Persist                 Security Info=False;User ID=sa;Initial Catalog=" &                           Str_Data & ";Data Source=" & Str_Server
        .Open
    End With
 Str_Data 是你的數據庫名稱,Str_Server 是你的服務器名稱試一下

Answer 3

最简单的方法：使用adodc控件，然后设定它的datasource

Answer 4

用ADO就行啦.引用 Microsoft ActiveX Data Objects 2.x Library然后类似这样处理:
dim iConcStr$
dim iDb as Adodb.Connection '定义数据库对象
dim iRe as Adodb.Recordset  '定义表对象'数据库连接字符串
iConcStr = "Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名"'创建数据库及表对象
set iDb=new Adodb.Connection
set iRe=new Adodb.Recordset'打开数据库
iDb.open iConcstr'打开表
iRe.open "表名",iDb'''''''''''''''
'你的处理操作
''''''''''''''''关闭表及数据库
iRe.close
iDb.close'释放对象
set iRe=nothing
set iDb=nothing

Answer 5

db.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=(local);Data source=表名"

Answer 6

不好意思,上面寫錯了db.connectionstring="Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Data Source=(local);Initial Catalog=數據庫名稱"

Answer 7

引用 Microsoft ActiveX Data Objects 2.x Librarydim cn as new adodb.connection
dim rs as new adodb.recordset
dim selectsql as string
selectsql="Provider=SQLOLEDB.1;UID=sa;Pwd=;server={sql server};database=数据库名;"
rs.open selectsql
-------------------
我想这样行吧!
最后还要设置好数据源!

Answer 8

ConnectionString = "uid=sa;pwd=xxx;
driver={SQLServer};server=127.0.0.1;database=databasename"

Answer 9

connstr="driver=sql server;server=.;uid=sa;pwd=******;source=DBName"

Answer 10

一般程序中是不用本地建ODBC连接文件的应该是在程序中用代码写的楼上的代码就可以连数据库啊

Answer 11

'引用 Microsoft ActiveX Data Objects 2.x Library'创建一个连接(连接到SQL)
'函数名:CreateSqlConn
'参数:  DbConnection ADODB连接,ServerName 服务器名,DBname 数据库名,UserID 登录用户名,UPw 登录密码,Timerout 连接超时
'返回值:TRUE 连接成功.FALSE 连接失败.
'例:    CreateSqlConn p_cnn,"CJH","cjherp001","sa","123",15
'
Public Function CreateSqlConn(ByRef DbConnection As ADODB.Connection, _
                              ServerName As String, _
                              DbName As String, _
                              UserID As String, _
                              UPw As String, _
                              Optional Timerout As Long = 15) As Boolean
    Dim ReturnVal As Boolean    On Error Resume Next    If DbConnection.State = adStateOpen And Not IsEmpty(adStateOpen) Then
       DbConnection.Close
    End If
'/连接1
    DbConnection.Provider = "MSDASQL.1"
    DbConnection.ConnectionString = "Driver={SQL Server};Server=" & ServerName & ";DataBase=" & DbName & ";Uid=" & UserID & ";Pwd=" & UPw & ";PWD=" & UPw & ";APP=" & App.Path & ";WSID=" & UserID & ";Connect Timeout=" & Timerout & ";"
'/--------------------------------------------------------------------------------------------
'/连接2
'/    DbConnection.Provider = "SqloleDB.1"
'/    DbConnection.ConnectionString = "Database=" & DBname & ";Server=" & ServerName & ";Uid=" & UserID & ";Pwd=" & UPw & ";Connect Timeout=" & Timerout & ";"
'/---------------------------------------------------------------------------------------------
    DbConnection.ConnectionTimeout = Timerout
    DbConnection.CommandTimeout = Timerout
    DbConnection.Open
    DoEvents
    If Err.Number = 0 Then
       DbStyle = "SQL"
       ReturnVal = True
    Else
       Err.Clear
       DbStyle = ""
       ReturnVal = False
    End If
    CreateSqlConn = ReturnVal
End Function