RT
解决方案 »
- 实时错误'3021',BOF或EOF中有一个是"真",或者当前的记录以被删除,所需的操作要求一个当前的记录。请问如何解决?VB+ACCESS
- 两个鼠标。请高手帮忙看看!
- DataGrid的问题,请高手帮忙.
- SendMessage的问题 求教
- vb有关mscomm控件的问题
- Listbox 拖放的问题!解决就给100分!
- 怎么样用API修改控件?
- 我用vb开发的程序中用到TABCTL32.OCX,可是我用了几天,再打开的时候,提示此控件过期,为什么呢?
- 解释一段代码?
- 我想结合主域服务器的组、用户等,一句话,就是能用API完成域用户管理器的工作,是不是很复杂呢?另外,我是针对NT4,并不是对于WIN2000(因为WIN2000可以用ADSI),怎么办呢?高手们可以写一段程序给我学习吗?
- 怎樣獲得一個控件的所有屬性?
- 请教 MSFlexGrid的问题???
'SmGrid 是MSHFlexGrid的名称Set SmGrid.DataSource = AdoRs 即可
dim conn as new adodb.connection
dim strsql,strdsn as string
strdsn="..."
strsql="..."
Conn.Open strdsm
Rs.Open sql
set MSHFlexGrid.datasource=rs
MSFLEXGRID要手工添加!!
打開記錄集之后﹐只要set VSFlexgrid.datasource=rs 就行了。
比MSFlexGrid好用多了
*
*
*
MSFlexGrid1.Rows = rs.RecordCount + 1
MSFlexGrid1.Cols = rs.fiels.count
For i = 1 To rs.RecordCount
For j = 1 To rs.Fields.Count
MSFlexGrid1.TextMatrix(i, j - 1) = rs.Fields(j - 1).Value
Next j
rs.MoveNext
Next i
也可以读取数据库中的数据
上面代码多多,我就不班门弄斧了.
Adodc1.connectstring=连接数据库字符串
Adodc1.adcommandtype=adcmdunknow ’好像是这个
Adodc1.recordsource=”查询语句”
Adodc1.refresh
End sub然后在Msflexgrid的属性面板中设定DataSource=adodc1
这样就可以了。