您的位置：程序门 -> vb ->

access在tdbgrid上的显示问题

[收藏此页] [打印本页]选择字色：背景色：字体：[大][中][小]

access在tdbgrid上的显示问题[已结贴,结贴人:aeae12]

发表于：2007-10-17 23:47:49 楼主

我用acdoc连接的access数据库，代码如下：
private sub command3_click（)
cn = "provider=microsoft.jet.oledb.4.0;data source=d:\新建文件夹（2)\interface.mdb;persist security info=false"
dim rs as new adodb.recordset
str1 = "select * from comparebase inner join zd_xm5 on comparebase.xm_name = zd_xm5.xm_name"
rs.open str1, cn, adopenkeyset, adlockoptimistic
set adodc3.recordset = rs
adodc3.refresh
end sub

private sub tdbgrid3_oninit（)

set tdbgrid1.datasource = adodc3

tdbgrid1.marqueestyle = dbghighlightrow
tdbgrid1.columns（0).datafield = "xm_code"
tdbgrid1.columns（0).alignment = dbgcenter

tdbgrid1.columns（1).datafield = "xm_name"
tdbgrid1.columns（1).alignment = dbgcenter

tdbgrid1.scrolltrack = true
tdbgrid1.rebind
end sub

同样的代码在sql中能显示出来，但在access中确不能显示，请哪位大哥指点一下，不胜感激

下一篇：access在tdbgrid上的显示问题
上一篇：怎么在picturebox里话坐标轴

其他资讯