'Open the connection
Private mConn As Connection
Private XX As String
XX="PROVIDER=MSDataShape;"
XX= XX + "Data PROVIDER=Microsoft.Jet.OLEDB.4.0;"
XX= XX + "Data Source=D:\Documents and Settings\廖丹青\桌面\台账.mdb;"
mConn.Open "XXXXXX"
在Form_Load事件中打开连接并用jdqk表中的数据填充ListView控件。记住修改mConn的Open方法中的连接字符串以匹配你的设置。
Private Sub Form_Load()
Dim rs As Recordset
Dim NewItem As ListItem
'open the connection
Set mConn = New Connection
mConn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Project\db\Account.mdb"
'fill the list
Set rs = mConn.Execute("jdqk", , adCmdTable)
Do Until rs.EOF
Set NewItem = listAuthors.ListItems.Add(rs("dwbh"), , rs("dwmc"))
NewItem.SubItems(1) = rs("jzcqtzzms")
NewItem.SubItems(2) = rs("nf")
NewItem.SubItems(3) = rs("jd")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
特别注意以下的语句
Set NewItem = listAuthors.ListItems.Add([Index],[Key],[Text],[Icon],[SmallIcon]) As ListItem
Index或者Key都能将表中的关键字作为赋值对象,但要区别是字符型还是数字型,否则很可能报错。一定要匹配,我在此栽过跟头。切忌!!
Private mConn As Connection
Private XX As String
XX="PROVIDER=MSDataShape;"
XX= XX + "Data PROVIDER=Microsoft.Jet.OLEDB.4.0;"
XX= XX + "Data Source=D:\Documents and Settings\廖丹青\桌面\台账.mdb;"
mConn.Open "XXXXXX"
在Form_Load事件中打开连接并用jdqk表中的数据填充ListView控件。记住修改mConn的Open方法中的连接字符串以匹配你的设置。
Private Sub Form_Load()
Dim rs As Recordset
Dim NewItem As ListItem
'open the connection
Set mConn = New Connection
mConn.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=F:\Project\db\Account.mdb"
'fill the list
Set rs = mConn.Execute("jdqk", , adCmdTable)
Do Until rs.EOF
Set NewItem = listAuthors.ListItems.Add(rs("dwbh"), , rs("dwmc"))
NewItem.SubItems(1) = rs("jzcqtzzms")
NewItem.SubItems(2) = rs("nf")
NewItem.SubItems(3) = rs("jd")
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
End Sub
特别注意以下的语句
Set NewItem = listAuthors.ListItems.Add([Index],[Key],[Text],[Icon],[SmallIcon]) As ListItem
ListItem 对象,ListItems 集合的语法包含下面部分:
部分 | 描述 |
listview | 对象表达式,其值是 ListView 控件。 |
index | 唯一标识 ListItem 集合成员的整数或字符串。如果为整数,它将是 Index 属性的值;如果为字符串,它将是 Key 属性的值。 |
Index或者Key都能将表中的关键字作为赋值对象,但要区别是字符型还是数字型,否则很可能报错。一定要匹配,我在此栽过跟头。切忌!!