如何利用vb和access再加excel制作ERP?

不难，但是同一时间只容许一个人对数据库进行读写 *** 作，其他人只读。

较为高级的做法是做一个服务器端，作为admin的 *** 作终端和数据存储和备份处。做一个客户端，可以分发给其他用户，远端读写服务器端存储的access文件。需要使用winsock控件建立数据传输的TCP链接。

而相对简便的做法是利用现有的局域网络资盯铅源：只有一个 *** 作界面，数据文件放在一个共享文件夹中，共享文件夹可以被其他电脑访问到。这样其他用户在远端就可以运扮则察行程序时，选择数据文件位置，指定到这个厅茄网络文件夹就可以了，也可以在他们电脑上映射网络硬盘就可以了。

不需要MY SQL或者SQL这些复杂数据库的支持。ACCESS 足够中小企业使用了。数据文件一定要加密。有例程可以参考：

http://www.planet-source-code.com/vb/scripts/ShowCode.asp?txtCodeId=54947&lngWId=1

在一个表单中添加一个命令按钮command1，添加代悔裤肢码纯雀如下：PrivateSubCommand1_Click()DimcnAsConnectionDimrsAsRecordsetDimsqlAsStringDimnAsLong,mAsLongSetcn=NewConnectioncn.Open"Provider=Microsoft.Jet.OLEDB.4.0"&_"DataSource="&App.Path&"\test.mdb"sql="SELECT*From[Sheet1$]IN"&Chr(34)&App.Path&"\test.xls"&Chr(34)&Chr(32)&Chr(34)&"EXCEL8.0"&Chr(34)Debug.PrintsqlSetrs=cn.Execute(sql)WhileNotrs.EOFsql="insertintotb(id,num,dt)values('"&rs.Fields(0)&"',"&Val(rs.Fields(1))&",#"&rs.Fields(2)&"#)"cn.Executesql,nm=m+nrs.MoveNextWendSetrs=NothingSetcn=NothingMsgBox"碧世成功写入数据："&mEndSub要求：1、当前文件夹下有数据库test.mdb，里面有一个表的名字叫tb，它的字段id,num,dt，第一个是字符型的，第二个是数值型的，第三个是日期型的。2、EXCEL表格里面的表头及数据类型最好要与tb里面的字段对应。以上回答你满意么？

---