一起探讨数据库问题!!

bugoa 2004-05-05 08:58:04
在VB中如何用代码实现VB和SQL2000连接起来????
...全文
48 2 点赞 打赏 收藏 举报
写回复
2 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
射天狼 2004-05-06
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
  • 打赏
  • 举报
回复
daisy8675 2004-05-05
connect_str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=" & SysName & ";password=" & sysPassword & ";"

connect_str = connect_str & "Initial Catalog=" & sysDataBase & ";Data Source=" & sysSource & ";Connect Timeout=30;Application Name=ListenEZ"

conn.CursorLocation = adUseClient
  • 打赏
  • 举报
回复
相关推荐
发帖
数据库(包含打印,安装,报表)
加入

1190

社区成员

VB 数据库(包含打印,安装,报表)
申请成为版主
帖子事件
创建了帖子
2004-05-05 08:58
社区公告
暂无公告