在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
就这个意思,代码随手写的,没有测试