VB6.0中DataGrid如何不绑定数据库就添加显示临时数据?
我先通过编辑DataGrid1指定了DataGrid1的列名、宽度、字段类型,然后想通过一个插入按钮,把text1-10的信息插入到DataGrid1的一行中,并且Dat...
我先通过编辑DataGrid1指定了DataGrid1的列名、宽度、字段类型,然后想通过一个插入按钮,把text1-10的信息插入到DataGrid1的一行中,并且DataGrid1的行数加一,再次点击按钮插入到第二行,行数再加一,如何实现?
希望来个明白人,如何连接SQL我会,如何给datagrid1绑定数据源我也会,我现在只想不绑定数据源的情况下操作datagrid1. 展开
希望来个明白人,如何连接SQL我会,如何给datagrid1绑定数据源我也会,我现在只想不绑定数据源的情况下操作datagrid1. 展开
3个回答
展开全部
'Ctrl+t找Microsoft DataGrid Control....
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
'菜单"工程"->"引用" 找 Microsoft ActiveX Data Object....
Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
Dim SqlStr As String
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Mode=ReadWrite;Persist Security Info=False;Jet OLEDB:Database Password=111"
SqlStr = "Select * From 某个表"
rst.CursorLocation = adUseClient
rst.Open SqlStr, cn, adOpenDynamic, adLockOptimistic, adCmdText '打开记录集
Set DataGrid1.DataSource = rst '给DataGrid修改数据源
展开全部
select a.mid,sum(b.mAmount),sum(c.mAmount),sum(a.mAmount)-sum(c.mAmount)
from mTable a,inTable b,outTable c
where a.mid=b.mid=c.mid
and b.mday= '2009-02-04 '
from mTable a,inTable b,outTable c
where a.mid=b.mid=c.mid
and b.mday= '2009-02-04 '
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
这种功能为啥不用 HF ( Hierarchical FlexGrid) ? 干啥活用啥工具撒
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询