首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VB >

在VB操作界面以表的形式写多条数据然后插入到数据库中?该如何处理

2012-01-01 
在VB操作界面以表的形式写多条数据然后插入到数据库中???想做一个进销存的软件。比如一次进货很多,怎样实现

在VB操作界面以表的形式写多条数据然后插入到数据库中???
想做一个进销存的软件。
比如一次进货很多,怎样实现在一个表的形式下把所进的货一次写入,然后点击入库按扭一次写入数据库呢??
请各位帮帮忙吧。。

[解决办法]
直观的方法你可以用MSHFlexGrid控件来显示要入库的信息。举个简单的例子,在一个Form上加2个text控件,用来分别用来输入品名和数量,再加2个command分别确认输入和提交,在加一个MSHFlexGrid用来显示输入的数据


Private Sub Form_Load()

'初始化fg fg是 MSHFlexGrid的名称
fg.Rows=2
fg.Cols=3
fg.TextMatrix(0, 0)= "序号 "
fg.TextMatrix(0, 1)= "品名 "
fg.TextMatrix(0, 2)= "数量 "

End Sub

Private Sub Command1_Click()

'向MSHFlexGrid中写数据

If fg.TextMatrix(MSHFlexGrid.Roes-1, 0) <> " " then
fg.rows =fg.Rows+1
End if
fg.TextMatrix(fg.rows-1, 0)=fg.rows-1
fg.TextMatrix(fg.rows-1, 1)=Text1
fg.TextMatrix(fg.rows-1, 2)=Text2

End sub

Private Sub Command2_Click()

'提交数据
dim i
dim sql
dim cn as new adodb.connection
cn.open "连接数据库字符串 "
for i=1 to fg.rows-1
sql= "insert into tb(f1,f2) values( ' "& fg.TextMatrix(i, 1)= & " ', "& fg.TextMatrix(i, 2)= & ") "
cn.execute sql
next i

End Sub

就这个意思,代码随手写的,没有测试

热点排行