注册 登录
编程论坛 VB6论坛

vb MSFlexGrid1表格控件里的多行数据怎么保存到access数据库中

w5781776 发布于 2016-05-22 07:35, 6998 次点击
只有本站会员才能查看附件,请 登录
13 回复
#2
hjxlj2016-05-22 09:21
又是伸手党?
#3
ZHRXJR2016-05-22 14:59
仅仅是将MSFlexGrid1数据存储到Access数据库中的某个数据表吗,那么数据表已经存在吗,这些不知道,怎么回答?
其实这个问题不是很难,你提供数据库名称、数据表名称,用不了一小时就搞定了。
只有本站会员才能查看附件,请 登录
没有点击【导入数据库】按钮时的界面   
只有本站会员才能查看附件,请 登录
  点击了【导入数据库】按钮时的界面

程序代码:
Dim SS As Integer

Private Sub Command1_Click()
Adodc1.RecordSource = "Select * From my_接种单"  '连接数据表
Adodc1.Refresh
    For I = 1 To SS          'SS是 MSFlexGrid1 控件的记录数
    Adodc1.Recordset.AddNew
    For J = 1 To 5
    Adodc1.Recordset.Fields(J) = MSFlexGrid1.TextMatrix(I, J - 1)
    Next J
    Adodc1.Recordset.Update
    Next I
Dim MM As Integer
Adodc1.RecordSource = "Select * From my_接种单"  '连接数据表
Adodc1.Refresh
MM = Adodc1.Recordset.RecordCount    '得到数据表的记录数
With MSFlexGrid2
.Cols = 5
.Rows = 1 + MM
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
For I = 1 To MM
For J = 1 To 5
.TextMatrix(I, J - 1) = Adodc1.Recordset.Fields(J)
Next J
Adodc1.Recordset.MoveNext
Next I
End With
MSFlexGrid2.Visible = True
Label1(1).Visible = True
End Sub

Private Sub Form_Load()
'这个仅仅给你提供一个例子,数据表的字段我乱设置的, MSFlexGrid1 控件中的数据也是胡乱设置的
SS = 5
With MSFlexGrid1
.Cols = 5
.Rows = 1 + SS
.TextMatrix(0, 0) = "A"
.TextMatrix(0, 1) = "B"
.TextMatrix(0, 2) = "C"
.TextMatrix(0, 3) = "D"
.TextMatrix(0, 4) = "E"
For I = 1 To SS
.TextMatrix(I, 0) = "A" & I
.TextMatrix(I, 1) = "B" & 2 * I
.TextMatrix(I, 2) = "C" & 3 * I
.TextMatrix(I, 3) = "D" & 4 * I
.TextMatrix(I, 4) = "E" & 5 * I
Next I
End With
MSFlexGrid2.Visible = False
Label1(1).Visible = False
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\Data.mdb;Persist Security Info=False"
End Sub

实际编辑时间约40分钟,特别简单。

[此贴子已经被作者于2016-5-23 22:48编辑过]

#4
hjxlj2016-05-22 18:59
以下是引用ZHRXJR在2016-5-22 14:59:24的发言:

仅仅是将MSFlexGrid1数据存储到Access数据库中的某个数据表吗,那么数据表已经存在吗,这些不知道,怎么回答?
其实这个问题不是很难,你提供数据库名称、数据表名称,用不了一小时就搞定了。

那你就给楼主搞定吧,我没有时间。拜托了!
#5
w57817762016-05-22 20:16
回复 3楼 ZHRXJR
数据库里有这个数据表,access数据库名称是:data,其中的数据表名称是:ym_接种单

[此贴子已经被作者于2016-5-22 20:28编辑过]

#6
xiangyue05102016-05-22 21:29
如何查询就如何添加,下面是SQL例句
insert into Table(Name,Age,Duty,Salary) values('王明',35,'外贸总监',12500)
如果你查询还不会,你还是先学习一下VB和数据库的基本东西
#7
hjxlj2016-05-23 17:04
以下是引用ZHRXJR在2016-5-22 14:59:24的发言:

仅仅是将MSFlexGrid1数据存储到Access数据库中的某个数据表吗,那么数据表已经存在吗,这些不知道,怎么回答?
其实这个问题不是很难,你提供数据库名称、数据表名称,用不了一小时就搞定了。

你这个用不了一小时的,怎么还不帮人家楼主搞定啊
#8
hjxlj2016-05-23 17:12
以下是引用w5781776在2016-5-22 20:16:01的发言:

数据库里有这个数据表,access数据库名称是:data,其中的数据表名称是:ym_接种单

楼主光提供数据库名和数据表名是不行的,还得提供一下数据表中的所有字段名才行。
#9
新手VB2016-05-23 17:12
回复 5楼 w5781776
附件发上来,你这个就是向access里面添加数据,应该不是很难的。
#10
w57817762016-05-23 19:29
只有本站会员才能查看附件,请 登录
请老师们给予指导
#11
ZHRXJR2016-05-23 21:20
回复 8楼 hjxlj
我刚刚才进入,等一会搞定。
#12
新手VB2016-05-24 09:02
回复 3楼 ZHRXJR
很强大,感谢分享。
#13
w57817762016-05-24 12:44
回复 3楼 ZHRXJR
谢谢三楼
#14
dsasada2018-04-27 12:01
不错,学习了
1