当前位置:编程学习 > VB >>

为什么MSHFlexgrid控件不显示数据库里的信息( ⊙ o ⊙ )啊!

表格控件放在frmManrecord1窗体,
代码是:
Private Sub frmManrecord1_load()
 Call showtitle
 Call ShowData
 flagEdit = True
End Sub
Private Sub showtitle()
       Dim i As Integer
       With msgList
            .Cols = 21
            .TextMatrix(0, 1) = "编号"
            .TextMatrix(0, 2) = "姓名"
            .TextMatrix(0, 3) = "部门"
            .TextMatrix(0, 4) = "性别"
            .TextMatrix(0, 5) = "出生日期"
            .TextMatrix(0, 6) = "籍贯"
            .TextMatrix(0, 7) = "学历"
            .TextMatrix(0, 8) = "专业"
            .TextMatrix(0, 9) = "参加工作时间"
            .TextMatrix(0, 10) = "入党时间"
            .TextMatrix(0, 11) = "职称"
            .TextMatrix(0, 12) = "职称时间"
            .TextMatrix(0, 13) = "原身份"
            .TextMatrix(0, 14) = "原工作单位"
            .TextMatrix(0, 15) = "原职务"
            .TextMatrix(0, 16) = "进入公司时间"
            .TextMatrix(0, 17) = "起薪时间"
            .TextMatrix(0, 18) = "调入时间"
            .TextMatrix(0, 19) = "档号"
            .TextMatrix(0, 20) = "备注"
            .FixedRows = 1
            For i = 0 To 20
                .ColAlignment(i) = 0
            Next i
            .FillStyle = flexFillRepeat
            .Col = 0
            .Row = 0
            .RowSel = 1
            .ColSel = .Cols - 1
            .ColAlignment = 4
            .ColWidth(0) = 300
            .ColWidth(1) = 1000
            .ColWidth(2) = 1000
            .ColWidth(3) = 1000
            .ColWidth(4) = 600
            .ColWidth(5) = 1000
            .ColWidth(6) = 2000
            .ColWidth(7) = 1000
            .ColWidth(8) = 2000
            .ColWidth(9) = 1200
            .ColWidth(10) = 1000
            .ColWidth(11) = 1200
            .ColWidth(12) = 1000
            .ColWidth(13) = 1200
            .ColWidth(14) = 3000
            .ColWidth(15) = 1000
            .ColWidth(16) = 1200
            .ColWidth(17) = 1000
            .ColWidth(18) = 1000
            .ColWidth(19) = 1000
            .ColWidth(20) = 1000
            .Row = 1
        End With
End Sub
Private Sub ShowData()
            Dim j As Integer
            Dim i As Integer
            txtSQL = "select * from manrecord"
            Set mrc = ExecuteSQL(txtSQL, MsgText) 'txtSQL
            If mrc.EOF = False Then
               With msgList
               .Rows = 1
               Do While Not mrc.EOF
                        .Rows = .Rows + 1
                        For i = 1 To mrc.Fields.Count
                             Select Case mrc.Fields(i - 1).Type
                                    Case adDDBate
                                         .TextMatrix(.Rows - 1, i) = Format(mrc.Fields(i - 1) & "", "yyyy-mm-dd")
                                    Case Else
                                         .TextMatrix(.Rows - 1, i) = mrc.Fields(i - 1) & ""
                              End Select
                        Next i
                        mrc.MoveNext
                Loop
                End With
            End If
            mrc.Close
End Sub
究竟错在哪里了?怎么改啊? --------------------编程问答--------------------  Set mrc = ExecuteSQL(txtSQL, MsgText) 'txtSQL
有数据吗?
加断点看一下 --------------------编程问答-------------------- 不会家断点……
数据库已经是连接了的
我在另一个添加员工信息界面可以把员工信息加进到数据库里
假如没加进去,我试着把以下的代码写进该窗体代码中还是不能读出数据库里的信息……
Public Function ConnectString() As String
ConnectString = " Driver={SQL Server};Server=33B5B0933872425;UserID=sa;Password=null;Database=personnel"
End Function --------------------编程问答-------------------- 点击代码的左边边框,就可以添加断点
加在 Set mrc = ExecuteSQL(txtSQL, MsgText) 'txtSQL 附近即可。
然后运行代码,运行到这句代码时会暂停
然后 按 F8 键,逐语句运行
看那些代码 能否得到你想要的结果
补充:VB ,  基础类
CopyRight © 2012 站长网 编程知识问答 www.zzzyk.com All Rights Reserved
部份技术文章来自网络,