EXCEL+ACCESS 开发带生产的进销存系统

天天地

谢谢分享！

晨曦舞剑

做了个带农历的日期控件，放在一起下，下次发布新内容时一起公布

晨曦舞剑

mstzl3322 发表于 2024-2-11 21:30
我过去没有接触过ACCESS，最近想通过VBA来建一个ACCESS数据表，目前我已找到新建数据库及数据表的方法， ...

谈不上指点，建议你把我分享的系统下载，然后去看里面的ACCESS文件，我建了几张表，你看下我对各类数据的类型是怎么设定的。
其实基本就2大类：数字，文本
    数字就分为：整型和浮点型（ACCESS内叫双精度）
    文本没什么好分的，像商品的名称就短一点，描述&规格就长一点
布尔型也可以数字的整型替代，看你想怎么用。
日期型也不用多解释，一眼就应该明白。
关键还是多练。

opiona

liyangyunyangjy 发表于 2024-2-9 10:35
老哥,我公司用的是WPS,我想用WPS做一个带数据库的生产管理系统,其中当然也会有进销存的功能,这个系统平时需 ...

WPS和Excel链接数据库的区别是:
WPS不支持ADE12.0  只支持JET4.0
不影响ACCESS的链接  只影响Excel的SQL查询, 不支持XLSX  只支持XLS

1.   Rem Str_coon = "HDR=yes';Data Source=" & ThisWorkbook.FullName
   
2.     If InStr(UCase(Str_coon), "=SQLOLEDB") > 0 Or InStr(UCase(Str_coon), "={MYSQL") > 0 Then
   
3.         Rem 如果链接的是MSSQL 或者MySQL 则使用原来的链接字符串, 不做任何处理
   
4.         Rem Str_coon ="Driver={MySql ODBC 5.3 Unicode Driver};Server=myqcloud.com;Port=7139;DB=test;UID=用户名;PWD=密码;OPTION=3;"    '//外网MySQL  没有:WWW   192.168.1.05   没有:\\
   
5.         Rem Str_coon = "Provider=SQLOLEDB;Server=192.168.1.103;Database=XieXin;Uid=sa;Pwd=1005;"       '//SQLServer2005局域网， 广域网链接   192.168.1.05   没有:\\
   
6.     Else
   
7.         Rem  如果链接: ACCESS Exce 或者WPS
   
8.         If InStr(UCase(Application.Path), "WPS") > 0 Then
   
9.             Rem 如果是WPS中使用,  必须是4.0版本的
   
10.             If InStr(UCase(Str_coon), "PROVIDER=") = 0 Then
    
11.                 Rem 如果是简化的链接字符  就补全
    
12.                 Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_coon
    
13.                 Rem  完整的WPS链接字符
    
14.                 Rem Str_coon = "Provider=Microsoft.JET.OLEDB.4.0;Extended Properties='Excel 8.0;HDR=yes';Data Source=" & ThisWorkbook.FullName
    
15.             End If
    
16.         Else
    
17.             If InStr(UCase(Str_coon), "PROVIDER=") = 0 Then
    
18.                 Rem 如果是简化的链接字符  就补全
    
19.                 If Val(Application.Version * 1) < 12 Then
    
20.                     Rem 2003及以下版本的  使用4.0版本引擎
    
21.                     Str_coon = "Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties='Excel 8.0;" & Str_coon
    
22.                 Else
    
23.                     Rem 2007及以上版本的  使用12.0版本引擎
    
24.                     Str_coon = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties='Excel 12.0;" & Str_coon
    
25.                 End If
    
26.             End If
    
27.         End If
    
28.     End If

复制代码

静听溪流

感谢分享  点赞支持

q490525427

感谢大佬分享

前进者

感谢大佬的无私分享，下载后学习一下！

838225419

  感谢分享

兰色的回忆

做这种系统要想做好，耗费精力巨大，还要在实际使用中不断改进，给楼主点赞

opiona

VBA+ACCESS+SQLSERVER+MySQL的多种数据的管理系统 只讨论设计 不涉及具体代码

https://club.excelhome.net/thread-1618367-1-1.html