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

chenpeide 2004-05-06 11:34:38
为什么我总是连接数据库错误?
有哪位高手帮帮我?
...全文
70 9 打赏 收藏 举报
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
flymoon 2004-05-08
使用ado控件连接!!!!!如果没有出错生成的字符串可用
  • 打赏
  • 举报
回复
sunmoonn 2004-05-07
'工程->引用->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
  • 打赏
  • 举报
回复
射天狼 2004-05-07
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
  • 打赏
  • 举报
回复
hsanzhang 2004-05-07
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
  • 打赏
  • 举报
回复
azyue 2004-05-07
使用ado控件连接!!!!!如果没有出错生成的字符串可用
  • 打赏
  • 举报
回复
lizifang 2004-05-07
还要引用Microsoft ActiveX Data Objects 2.5 Library
在窗体上放一个Adodc控件

试试看
  • 打赏
  • 举报
回复
lizifang 2004-05-07
Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=数据库密码;Persist Security Info=True;User ID=用户;Initial Catalog=数据库名称;Data Source=数据库服务器IP地址"
Adodc1.RecordSource = "select * from tablename"
Adodc1.Refresh
  • 打赏
  • 举报
回复
chenpeide 2004-05-07
没人帮忙啊?
  • 打赏
  • 举报
回复
yinweihong 2004-05-06
........
  • 打赏
  • 举报
回复
发帖
数据库(包含打印,安装,报表)

1200

社区成员

VB 数据库(包含打印,安装,报表)
社区管理员
  • 数据库(包含打印,安装,报表)社区
加入社区
帖子事件
创建了帖子
2004-05-06 11:34
社区公告
暂无公告