如何让DBGRID不连接数据库，而只用来显示数据？

Question

DBGRID不连接数据库，而只用来显示数据，比如我有一组变量在DBGRID上显示，而且经常要显示，如果连接数据库就要不断的清空数据库，在执行上也很不方便，数据不用保存的。。只是临时查看

Answer 1

比如我要将1,2,3,4,5,6这6个数字，显示在DBGRID的第一行，然后将a,b,c,d,e,f显示在第二行。。要如何做，只是显示在DBGRID，不做存储。

Answer 2

老兄我用dbgrid弄了半天也不行，你还事msflexgrid吧

Answer 3

如果不换，你可以创建一个RecordSet,把你要处理的值付给它，然后捆定。

Answer 4

将1,2,3,4,5,6这6个数字，显示在DBGRID的第一行，然后将a,b,c,d,e,f显示在第二行，只是显示在DBGRID，不连接数据库，也不存什么东西，谁知道要如何做。

Answer 5

将1,2,3,4,5,6这6个数字，显示在DBGRID的第一行，然后将a,b,c,d,e,f显示在第二行。。要如何做，只是显示在DBGRID，不做其它事情，会的麻烦回答一下，100分。

Answer 6

如果大家遇到问题，只是让我去逃避，那可不是我的作风，希望大家帮忙解决。将1,2,3,4,5,6这6个数字，显示在DBGRID的第一行，然后将a,b,c,d,e,f显示在第二行。。要如何做，只是显示在DBGRID，不做其它事情

Answer 7

如果不换，你可以创建一个RecordSet,把你要处理的值付给它，然后捆定先给recordset付值
set dbgrid.datasource=recordset

Answer 8

同意： watt(瓦特) 
 sword281() 
Function SetDataGrid(dbgrd As DataGrid)
Dim rs As ADODB.Recordset
    Set rs = New ADODB.Recordset
    With rs
         .CursorLocation = adUseClient
         .CursorType = adOpenStatic
         .Fields.Append "i1", adChar, 1
         .Fields.Append "i2", adChar, 1
         .Fields.Append "i3", adChar, 1
         .Fields.Append "i4", adChar, 1
         .Fields.Append "i5", adChar, 1
         .Fields.Append "i6", adChar, 1
         .Open
         .AddNew
         .Fields(0) = "1"
         .Fields(1) = "1"
         .Fields(2) = "1"
         .Fields(3) = "1"
         .Fields(4) = "1"
         .Fields(5) = "1"
         .AddNew
         .Fields(0) = "a"
         .Fields(1) = "b"
         .Fields(2) = "c"
         .Fields(3) = "d"
         .Fields(4) = "e"
         .Fields(5) = "f"
    End With
    Set dbgrd.DataSource = rs
End Function

Answer 9

将DBGRID1.DataMode=unboundPrivate Sub Command1_Click()
 DBGrid1.Columns(0).Value = 1
 DBGrid1.Columns(1).Value = 2
 DBGrid1.Columns(2).Value = 3
 DBGrid1.Columns(3).Value = 4
 DBGrid1.Columns(4).Value = 5
 DBGrid1.Columns(5).Value = 6
End Sub

Answer 10

Private rs As New ADODB.Recordset '自定义RS
....
Set DBGrid1.DataSource = rs用了这句，但DBGrid没有显示，倒了，我试了dbgrid1.refresh也不行。

Answer 11

Function SetDataGrid(dbgrd As DataGrid)
改一下
Function SetDataGrid(dbgrd As Variant)
调用：
SetDataGrid DBGrid1

Answer 12

晕啊，我前面不是已经贴了吗？
上面的帖子是修改上上面的帖子的啊。
look look

Answer 13

我是这样做的，设置GRID为unbound，然后按你的代码，包括后来你改正的代码，可是GRID就是不显示。

Answer 14

你添加两个DBGRID分别为DBGrid1和DBGrid2,并将他们的DataMode设为unbound，然后，各个DBGRID都添加成6列，DBGRID2不需要列头，而且DBGRID2与DBGRID1位置对齐，DBGRID2的上方紧连着DBGRID1的第一行下面，然后添加下面的内容
Private Sub Command1_Click()
 DBGrid1.AllowAddNew = True
 DBGrid1.AllowDelete = True
 DBGrid1.AllowUpdate = True
 DBGrid1.ColumnHeaders = True
 
 DBGrid1.Columns(0).Value = 1
 DBGrid1.Columns(1).Value = 2
 DBGrid1.Columns(2).Value = 3
 DBGrid1.Columns(3).Value = 4
 DBGrid1.Columns(4).Value = 5
 DBGrid1.Columns(5).Value = 6
 
 DBGrid2.AllowAddNew = True
 DBGrid2.AllowDelete = True
 DBGrid2.AllowUpdate = True
 DBGrid2.ColumnHeaders = False
 DBGrid2.Columns(0).Value = "a"
 DBGrid2.Columns(1).Value = "b"
 DBGrid2.Columns(2).Value = "c"
 DBGrid2.Columns(3).Value = "d"
 DBGrid2.Columns(4).Value = "e"
 DBGrid2.Columns(5).Value = "f"
End Sub

Answer 15

dbgrid默认是2列，你这样直接加列是不行的，所以没试，再有，如果是10行数据，那不得10个dbgrid，100行数据就会死人的，呵，还是谢参与讨论。

Answer 16

我的vb6中文版，操作系统win2kpro,我使用的时候可以正常显示

Answer 17

可以自己构造一个recordset 但是不连接数据库，然后关联到dbgrid上

Answer 18

bigpig(春天的国度) 自己在内存中构建数据源，然后动态连接应该是比较好的解决方案。

Answer 19

不知道怎么在内存里建立，请赐教啊。
[email protected]

Answer 20

啊，要不bigpig源程序发给我研究一下，我邮箱[email protected]先谢啦。

Answer 21

请问高手，用VB写系统关机的Shell代码怎么写？

Answer 22

换
MFLEXGRID一个好的程序，往往经过不断的重构和推新，别说换一个控件，就算换一种算法、结构，只要对程序有益，也是值得地～