VB连接SQL数据库,高手帮帮忙,在线等,谢谢

Question

为什么我总是连接数据库错误?
有哪位高手帮帮我?

Answer 1

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=数据库密码;Persist Security Info=True;User ID=用户;Initial Catalog=数据库名称;Data Source=数据库服务器IP地址"
Adodc1.RecordSource = "select * from tablename"
Adodc1.Refresh

Answer 2

还要引用Microsoft ActiveX Data Objects 2.5 Library
在窗体上放一个Adodc控件试试看

Answer 3

Option Explicit'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.RecordsetPrivate Sub Combo1_Click()
    rs.Open "SELECT * FROM TABLENAME WHERE NAME = '" & txtName.Text & "'", cn, adOpenDynamic, adLockOptimistic
    If Not rs.EOF Then
        Label1.Caption = rs!ID
        Label2.Caption = rs!Memo
    End If
End SubPrivate Sub Form_Load()
    cn.ConnectionString = ""
    cn.Open
    '查询字符串可以上这里查
    'http://www.connectionstrings.com/
End Sub

Answer 4

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim sqlstr as stringconn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=True;" & _
   "User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=服务器所在机器名或IP地址"conn.Open
rs.CursorLocation = adUseClient
sqlstr="select * form 表名"
rs.Open "sqlstr, conn

Answer 5

使用ado控件连接！！！！！如果没有出错生成的字符串可用

Answer 6

private sub form_load()
  dim cn as new adodb.connection
  dim rs as new adodb.recordset
  dim strSql as string
  with cn
           .provider="sqloledb"
           .connectionstring="data source=your server;initial catalog=your database;user id=your user;password=your password"
           .open
   end with strSql = "select * from yourtable"
 With rs
        .ActiveConnection = cn
        .CursorLocation = adUseClient
        .Open strsql, cn, adOpenDynamic, adLockOptimistic
End With
end sub

Answer 7

使用ado控件连接！！！！！如果没有出错生成的字符串可用