MSHFlexGrid1问题 - VB6论坛 - 编程论坛档案馆

孙文

等　级：新手上路
帖　子：24
专家分：0
注　册：2016-5-5
结帖率：50%

楼主

已结贴√ 问题点数：10 回复次数：2

MSHFlexGrid1问题

如何让MSHFlexGrid1显示数据库当中某一列的数据

搜索更多相关主题的帖子: 数据　显示　一列　数据库　

2020-07-10 14:14

ZHRXJR

等　级：版主
威　望：125
帖　子：1034
专家分：5519
注　册：2016-5-10

第 3 楼

得分:5

借助YWG202006的问题的数据库与数据表，简单写一下

程序代码：

MSHFlexGrid1.Visible = True
MSHFlexGrid1.Clear
Dim cn As New ADODB.Connection, RS As New ADODB.Recordset, XXT As Integer
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & App.Path & "\用户信息.accdb;Jet OLEDB:Database Password=;"
RS.Open "Select * From 用户表 where ID=" & Val(Text1.Text) & "", cn, 3, 2
XXT = RS.RecordCount
With MSHFlexGrid1
    .Cols = 2
    .Rows = XXT + 1
    .TextMatrix(0, 1) = "用户名"
    .ColWidth(0) = 0
    .ColWidth(1) = 1000
    For I = 1 To XXT
    .TextMatrix(I, 1) = RS!用户名
    RS.MoveNext
    Next I
RS.Close
cn.Close

[此贴子已经被作者于2020-7-11 12:20编辑过]

请不要选我！！！

2020-07-11 12:19