标题:求助:将msflexgrid表格内容存入数据库
只看楼主
Yolanda
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2005-3-23
 问题点数:0 回复次数:7 
求助:将msflexgrid表格内容存入数据库

请教各位高人:
我建立了一个msflexgrid表格,怎样将其中的所有数据都储存在新的数据库中呢?没有思路啊
哪位大侠可以慷慨解难呢?

谢谢谢谢,小女子有礼了

搜索更多相关主题的帖子: 数据库 msflexgrid 表格 
2005-11-07 16:46
Yolanda
Rank: 1
等 级:新手上路
帖 子:38
专家分:0
注 册:2005-3-23
得分:0 
没有人回复啊,只好自己顶一下了,谁能帮帮我啊??

2005-11-08 14:45
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
得分:0 

网格控件

功能说明

MSFlexGrid

标准

不能进行编辑,有图形功能。

MSHFlexGrid

OLEDB

不能进行编辑,可分层处理网格,有图形功能。

DataGrid

OLEDB

可以进行编辑操作,显示文本。



2005-11-09 14:37
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
得分:0 

所以不要想用msflexgrid来做了,你可以用datagrid来编辑数据库


2005-11-09 14:40
jackdeng
Rank: 1
等 级:新手上路
帖 子:8
专家分:0
注 册:2005-11-6
得分:0 

你是华工的老师吗?

2005-11-09 18:50
syh878
Rank: 1
等 级:新手上路
威 望:2
帖 子:461
专家分:0
注 册:2005-9-2
得分:0 

说我啊??我不是


2005-11-11 11:29
wxhjwh11
Rank: 1
等 级:新手上路
帖 子:1
专家分:0
注 册:2005-11-17
得分:0 

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim ex As Object
Dim exwbook As Object
Dim exsheet As Object
Set ex = CreateObject("Excel.Application")
Set exwbook = ex.Workbooks().Add
Set exsheet = exwbook.Worksheets("sheet1")
'********************************
'MsgBox (exwbook.Name)
For i = 1 To 7
For j = 1 To 5
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
o$ = MSFlexGrid1.Text
Set act = exsheet.Cells(i, j)
'exsheet.Cells(i, j).Select
act.Value2 = o$
Next j
Next i

exwbook.SaveAs "c:\123.xls"
Set exwbook = Nothing
Set exsheet = Nothing
ex.Quit
MsgBox ("You can open the file C:\123.xls to see what happen!")
End
End Sub

Private Sub Form_Activate()
MSFlexGrid1.Rows = 8
MSFlexGrid1.Cols = 6
For i = 1 To 7
For j = 1 To 5
MSFlexGrid1.Row = i
MSFlexGrid1.Col = j
a$ = "(" + Str(i) + "," + Str(j) + ")"
MSFlexGrid1.Text = a$
Next j
Next i

End Sub

2005-11-17 11:31
皮蛋粥
Rank: 1
等 级:新手上路
帖 子:129
专家分:0
注 册:2005-8-22
得分:0 
如果 MS Flexgrid 里面已经有数据了,完全可以读出来,然后写进数据库里面的

用 .Row 和 .Col 定位,然后读取 .Text ,再写进数据库里面好了,如果需要直接在 Flexgrid 上面直接编辑,就做一个 Textbox,先将 Visible 设置为不可见,需要的时候,显示出来,读取 Flexgrid 的 .RowHeight,.ColWidth,.Rowpos 和 .ColPos 调整大小就可以了。

,\'\'\',\'\'\', ,\'\'\',\'\'\', \',波波 ,\' \',荟荟 ,\' \' , \' \' , \'
2005-11-21 11:06



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-32965-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.281020 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved