pHH137148
pQQ137148
采纳率100%
2019-06-01 14:30

VB6.0使用ADO对象模型访问数据库,怎么读取sql数据

已采纳

问题:VB6.0使用ADO对象模型访问数据库,怎么读取sql数据

需求 :我想把sql数据显示在文本框里面,点击命令按钮才出现

Private Sub Command1_Click()

Dim mycon As New ADODB.Connection '1,使用Dim语句创建一个Connection对象

'2,使用sql 用户名和密码连接数据库
mycon.ConnectionString = "Driver={SQL Server};Server=(local);User ID=sa;pwd=*******.;Database=Library"

'3,用Connection对象的Open方法打开 与数据库的连接
mycon.Open

'4,执行sql
'4.1 (执行查询的操作)
Dim myrs As New ADODB.Recordset
Set myrs = mycon.Execute("select * from book")

'5,关闭sql连接
mycon.Close

'6,释放或删除sql连接
Set mycon = Nothing

End Sub

  • 点赞
  • 写回答
  • 关注问题
  • 收藏
  • 复制链接分享
  • 邀请回答

2条回答

  • pHH137148 pQQ137148 2年前

    Set Text1.DataSource = Adodc1

    Text1.Text = myrs.Fields("图书编号")

    点赞 评论 复制链接分享
  • caozhy 回答这么多问题就耍赖把我的积分一笔勾销了 2年前

    ...
    Set myrs = mycon.Execute("select * from book")
    While Not myrs.EOF
    Text1.Text = Text.Text & rs!字段名 & " "
    myrs.MoveNext
    Wend
    ...

    点赞 评论 复制链接分享