pQQ137148 2019-06-01 14:30 采纳率: 100%
浏览 261
已采纳

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条回答 默认 最新

  • pQQ137148 2019-06-09 12:10
    关注

    Set Text1.DataSource = Adodc1

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

    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(1条)

报告相同问题?

悬赏问题

  • ¥20 SQL server表计算问题
  • ¥15 C# P/Invoke的效率问题
  • ¥20 thinkphp适配人大金仓问题
  • ¥20 Oracle替换.dbf文件后无法连接,如何解决?(相关搜索:数据库|死循环)
  • ¥15 数据库数据成问号了,前台查询正常,数据库查询是?号
  • ¥15 算法使用了tf-idf,用手肘图确定k值确定不了,第四轮廓系数又太小才有0.006088746097507285,如何解决?(相关搜索:数据处理)
  • ¥15 彩灯控制电路,会的加我QQ1482956179
  • ¥200 相机拍直接转存到电脑上 立拍立穿无线局域网传
  • ¥15 (关键词-电路设计)
  • ¥15 如何解决MIPS计算是否溢出