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

[chenpeide]

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

[yinweihong]

........

• 打赏
• 举报

回复 赞

[chenpeide]

没人帮忙啊?

• 打赏
• 举报

回复 赞

[lizifang]

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

• 打赏
• 举报

回复 赞

[lizifang]

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

试试看

• 打赏
• 举报

回复 赞

[azyue]

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

• 打赏
• 举报

回复 赞

[hsanzhang]

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

• 打赏
• 举报

回复 赞

[射天狼]

Option Explicit

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim cn As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private 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 Sub

Private Sub Form_Load()
cn.ConnectionString = ""
cn.Open
'查询字符串可以上这里查
'http://www.connectionstrings.com/
End Sub

• 打赏
• 举报

回复 赞

[sunmoonn]

'工程->引用->Microsoft ActiveX Data Objects 2.0 Library (后面为版本号)
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
dim sqlstr as string

conn.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

• 打赏
• 举报

回复 赞

[flymoon]

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

• 打赏
• 举报

回复 赞