为什么我的datagrid不能显示数据呢?

tonyathome 2003-01-05 08:58:50
'自定义函数
Private Function ShowDetails(systemno) As Boolean
Dim con As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim sqlstr As String
Dim constr As String

'建立数据库文件的相对路径
constr = App.Path
If Right(constr, 1) <> "\" Then
constr = constr + "\"
End If
constr = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & constr & "InvoicePrint.mdb"
'打开数据库连接
con.Open constr
'建立查询字符串
sqlstr = "select * from Details where system_no='" & systemno & "'"
'打开数据记录集
rst.Open sqlstr, con, adOpenStatic
If rst.EOF Then
MsgBox "No Details info!"
Else
Set dgrDetails.DataSource = rst
dgrDetails.Visible = True

End If
'关闭数据记录集
rst.Close
'关闭数据库连接
con.Close
End Function
...全文
11 点赞 收藏 回复
写回复
回复
切换为时间正序
请发表友善的回复…
发表回复

还没有回复,快来抢沙发~

发动态
发帖子
VB基础类
创建于2007-09-28

7451

社区成员

VB 基础类
申请成为版主
社区公告
暂无公告