| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 600 人关注过本帖, 1 人收藏
标题:[求助]MSFlexGrid1的单元内容导入数据库
只看楼主 加入收藏
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
结帖率:100%
收藏(1)
 问题点数:0 回复次数:3 
[求助]MSFlexGrid1的单元内容导入数据库
L5Tw1ppd.rar (23.53 KB) [求助]MSFlexGrid1的单元内容导入数据库


[此贴子已经被作者于2007-6-26 15:14:45编辑过]



9IpDylUc.jpg (30.12 KB)
图片附件: 游客没有浏览图片的权限,请 登录注册


faJtScqC.rar (26.57 KB) [求助]MSFlexGrid1的单元内容导入数据库



xY6UGTZ3.rar (23.56 KB) [求助]MSFlexGrid1的单元内容导入数据库

搜索更多相关主题的帖子: 数据库 单元 
2007-06-25 19:41
taihongbo
Rank: 1
来 自:山东临沂
等 级:新手上路
帖 子:127
专家分:0
注 册:2004-11-15
收藏
得分:0 
Sub 添加记录()
Form1.MSFlexGrid1.Rows = 1 '清除所有记录 可以使用Form1.MSFlexGrid1.Clear
Form1.MSFlexGrid1.Rows = 3 '预留3行空白
Form1.MSFlexGrid1.RowHeight(1) = 280 '保持行高
Form1.MSFlexGrid1.RowHeight(2) = 280 '保持行高
Call CNN_OPEN '连接数据库
Dim RST As New ADODB.Recordset
SQL = "Select * From 科目表"
If RST.State = 1 Then RST.Close:: Set RST = Nothing
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
For LRow = 1 To Rows - 1 'Rows 没有定义 可以使用Form1.MSFlexGrid1.Rows
RST.AddNew
RST.Fields("类型") = Form1.MSFlexGrid1.TextMatrix(LRow, 1) & "" '没有必要 & ""
RST.Fields("科目编码") = Form1.MSFlexGrid1.TextMatrix(LRow, 2) & ""
RST.Fields("总账科目") = Form1.MSFlexGrid1.TextMatrix(LRow, 3) & ""
RST.Fields("明细科目") = Form1.MSFlexGrid1.TextMatrix(LRow, 4) & ""
RST.Fields("方向") = Form1.MSFlexGrid1.TextMatrix(LRow, 5) & ""
RST.Fields("期初金额") = Form1.MSFlexGrid1.TextMatrix(LRow, 6) & ""
RST.Update '所有内容已经清除,没有内用可以保存,见你的第一句
RST.MoveNext '没有必要移动
Next LRow
RST.Close: Set RST = Nothing
CNN.Close: Set CNN = Nothing
End Sub

淘宝 毛绒玩具 熊
jstbobo.taobao. com
久顺通啵啵玩具店
2007-06-25 20:16
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
收藏
得分:0 

按楼上的提示,添加记录的还是没有成功,请用附件帮忙修改,谢谢!

2007-06-25 20:37
zbs112
Rank: 1
等 级:新手上路
帖 子:79
专家分:0
注 册:2007-6-8
收藏
得分:0 

继续求助

sub 添加记录()
Call CNN_OPEN '连接数据库
Dim RST As New ADODB.Recordset
SQL = "Select * From 科目表"
RST.Open SQL, CNN, adOpenKeyset, adLockOptimistic
For LRow = 1 To MSFlexGrid1.Rows - 1
RST.AddNew
Form1.MSFlexGrid1.Row = LRow
RST.Fields("类型") = MSFlexGrid1.TextMatrix(LRow, 1)
RST.Fields("科目编码") = MSFlexGrid1.TextMatrix(LRow, 2)
RST.Fields("总账科目") = MSFlexGrid1.TextMatrix(LRow, 3)
RST.Fields("明细科目") = MSFlexGrid1.TextMatrix(LRow, 4)
RST.Fields("方向") = MSFlexGrid1.TextMatrix(LRow, 5)
RST.Fields("期初金额") = MSFlexGrid1.TextMatrix(LRow, 6)
RST.Update
Next LRow
MsgBox "数据记录添加成功!", vbInformation, ""
RST.Close: Set RST = Nothing
CNN.Close: Set CNN = Nothing
End Sub

[attach]23144[/attach]

[此贴子已经被作者于2007-6-26 15:15:47编辑过]

2007-06-26 12:18
快速回复:[求助]MSFlexGrid1的单元内容导入数据库
数据加载中...
 
   



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

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