如何用vb连接sql server数据库！？？？（急急急）

Question

Close #1
   opendb_JS
   sSQL = "select * from county_numreport"   
End Sub

Answer 1

在你的程序中，我没有找到对conn_JS付值，
问题应该处在这里！

Answer 2

db_JS没有打开连接字符串，
sSql也没有执行啊！

Answer 3

一个简单的例子：
使用ODBC连接，先建立一个ODBC数据源，
然后在程序中使用
db_JS.Open "数据源名称","用户名称","用户密码"
就可以了。
关于这些基础的东西，建议你还是多看看MSDN中的帮助。
对于编程很有好处，无论你武功深浅。

Answer 4

有没有ado的连接方式呀！！！！我要用ado连接！
conn.txt里写的就是连接语句！！！！急急急！！急急急急！！
我明天就要交工了！！这几天看球了！！！！！急急急！！

Answer 5

Set cnn = New ADODB.Connection
   Call cnn.Open(connectstr())
   Set rst = New ADODB.Recordset
   Set rst.ActiveConnection = cnn
   Call rst.Open(sql, cnn, adOpenKeyset, adLockOptimistic)

Answer 6

With Adc_over
       .connectionstring = connectstr()
       .username = "sa"
       .Password = psword
       .RecordSource = sql
       .Refresh
       
    End With

Answer 7

dim conn as ADODB.Connection 
dim rs as New ADODB.Recordset
dim connstr as string
dim sqlstr as string
connstr="Provider=SQLOLEDB.1;Password=1;Persist Security Info=True;User ID=sa;Initial Catalog=sdfdsf;Data Source=dnss"
conn.open connstr
Set rs.ActiveConnection = cnn
sqlstr=""
rs.open sqlstr

Answer 8

各位大哥呀！还是不可以呀！！！！
执行到Set db_JS = New Connection
就跳不过去了！但是的确有connection这个属性呀！！！！
今天不作出来我就要回家了！我可不想失业呀！！！

Answer 9

set  conn=New adodb.Connection
conn.Open ("driver={SQL Server};server=(local);uid=sa;database=hotyoung;pwd=aaa")
sqlstr="select * from county_numreport"
Set db_JS =New adodb.recordset 
    db_JS.CursorLocation = adUseClient‘
    db_JS.Open conn

Answer 10

把我得函数考过去吧，YK是ODBC数据原
Public Function Connect_Db(Var_Conn As Connection)
On Error GoTo errHand:Set Var_Conn = New Connection 'Microsoft.Jet.OLEDB.3.51
Var_Conn.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=YK"
Connect_Db = True
Var_Conn.CommandTimeout = 0
'Var_Conn.ConnectionTimeout = 0
Exit FunctionerrHand:
         'ErrMsg
         Connect_Db = False
         Exit Function
End Function

Answer 11

调用：
Set REC = New Recordset
REC.Open "SELECT * FROM YK_APP_MOD,YK_FORM_ORDER,YK_FORM WHERE YK_FORM_ORDER.YK_FORM=YK_FORM.YK_FORM_COD AND YK_APP_MOD.YK_APP_NO='" & TXT_NO.Text & "' AND YK_APP_MOD.YK_MOD=YK_FORM_ORDER.YK_MOD AND YK_APP_MOD.YK_SX-1=YK_FORM_ORDER.YK_SX", Conn, adOpenStatic, adLockOptimistic, adCmdText

Answer 12

我找不到ado这个属性因该加什么控件呀！！！谢谢！！！谢谢！！！！！

Answer 13

函数调用：
dim Conn as Connection
Connect_Db(conn)

Answer 14

没有Ado就要添加动态连接库阿

Answer 15

在引用中选择
Microsoft Activex Data Objects 2.1 Library

Answer 16

在引用中选择
Microsoft Activex Data Objects 2.1 Library