一有关VB与SQL SERVER连接的问题，请大家帮忙！急！！在线等待。。。。。。。立即加分！！！！！！！！！

Question

我是yong  ADO对象连接的

Answer 1

我是yong  ADO对象连接的

Answer 2

如果你用控件的话可以使用adodc控件，具体方法是你在项目菜单栏的组件项目中加入Microsoft Ado Data Control(OleDB)项目，在这个控件中你可以进行连接了，然后你就可以操作数据库了，本人理推荐使用ado连接字方式进行连接，如果有疑问，请qq35839994

Answer 3

adodc
或者创建ADODB库的 connect对象。

Answer 4

用ADO对象,在工程->引用,选择Microsoft Active Data Objects 2.x library
Global gconSQLServer As ADODB.Connection   '声明全局连接对象
'创建数据库连接全局变量，程序启动时开始连接，一直到程序结束时断开
   strConnection = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;" & _
                  "Initial Catalog=数据库名称;Data Source=数据库所在的计算机名称
  Set gconSQLServer = New ADODB.Connection
  gconSQLServer.Open strConnection    '这样就建立了连接

Answer 5

http://www.cx66.com/cxgzs/program/vb/613.htm

Answer 6

用odbc连也很简单
先在odbc中配起来。
程序中只要写
Set conn = New ADODB.Connectionconn.ConnectionString = "dsn=;uid=;pwd=;"
conn.Open

Answer 7

还是用ado,都什么年代了，还有用dao的data控件的

Answer 8

connectstr() ->"Provider=SQLOLEDB.1;Password=11111;Persist Security Info=True;User ID=sa;Initial Catalog=xxdb;Data Source=xxserver"
 
 Public Function exec_procedure(sql As String, Optional i As Integer = 0) As String
    exec_procedure = ""
    If sql = "" Then Exit Function
    Dim cnn1 As ADODB.Connection
    Dim rst1 As ADODB.Recordset
    Set cnn1 = New ADODB.Connection
    Call cnn1.Open(connectstr())
    Set rst1 = New ADODB.Recordset
    rst1.ActiveConnection = cnn1
    On Error GoTo errorhandle
    Call rst1.Open(sql, cnn1, adOpenKeyset, adLockReadOnly)
    If i <> 555 And i <> 999 Then
        If rst1.RecordCount = -1 Then exec_procedure = CStr(rst1.Fields(i).value)
        If rst1.RecordCount = 1 Then exec_procedure = CStr(rst1.Fields(i).value)
    End If
        If i = 999 Then
            ReDim arrary_rpt(rst1.Fields.Count) As String
            If (rst1.RecordCount = 1 Or rst1.RecordCount = -1) And rst1.Fields.Count >= 1 Then
                Dim k As Integer
                For k = 0 To rst1.Fields.Count - 1
                   arrary_rpt(k) = rst1.Fields(k).value
                Next
            Else
                For k = 0 To rst1.Fields.Count - 1
                   arrary_rpt(k) = ""
                Next
            End If
        End If
    Set rst1 = Nothing
    cnn1.Close
    Set cnn1 = Nothing
    Exit Function
errorhandle:
    Err.Clear
    Set rst1 = Nothing
    Set cnn1 = Nothing
    Exit Function
End Function

Answer 9

该说的都被别人说完了
wwwwwwwwwwwww

Answer 10

penitent(只取一瓢) 得是你还有什么好方法，不妨介绍给大家，让大家分享分享、学习学习嘛！

Answer 11

看wzsswz(岌岌荆棘) 的全面,建议用ADO来做,在VB中输入并选中Connection(当然也可以选别的),会弹出ADO帮助,慢慢来吧.

Answer 12

看wzsswz(岌岌荆棘) 的全面,建议用ADO来做,在VB中输入并选中Connection(当然也可以选别的),再按F1(嘿嘿,刚才忘打了)会弹出ADO帮助,慢慢来吧.

Answer 13

Public Function ConnectString() _
   As String
'returns a DB ConnectString
'the following is example of access database
   
   ConnectString = "Provider=" & _
      "Microsoft.Jet.OLEDB." & _
      "4.0;Data Source=" & _
      App.Path & "\NWind.mdb"
End Function
Public Function ExecuteSQL(ByVal SQL _
   As String, MsgString As String) _
   As ADODB.Recordset
'executes SQL and returns Recordset
   Dim cnn As ADODB.Connection
   Dim rst As ADODB.Recordset
   Dim sTokens() As String
   
   On Error GoTo ExecuteSQL_Error
   
   sTokens = Split(SQL)
   Set cnn = New ADODB.Connection
   cnn.Open ConnectString
   If InStr("INSERT,DELETE,UPDATE", _
      UCase$(sTokens(0))) Then
      cnn.Execute SQL
      MsgString = sTokens(0) & _
         " query successful"
   Else
      Set rst = New ADODB.Recordset
      rst.Open Trim$(SQL), cnn, _
         adOpenKeyset, _
         adLockOptimistic
      rst.MoveLast     'get RecordCount
      Set ExecuteSQL = rst
      MsgString = rst.RecordCount & _
         " records found from SQL"
   End If
ExecuteSQL_Exit:
   Set rst = Nothing
   Set cnn = Nothing
   Exit Function
   
ExecuteSQL_Error:
   MsgString = "ExecuteSQL Error: " & _
      Err.Description
   Resume ExecuteSQL_Exit
End Function