仓库管理系统源码

Office中国群管

  `佐手祐手` 于2013-10-22 16-53-01：
它好几十万的有  千元这个阶段的也有

Office中国群管

冰 于2013-10-22 18-32-03：
Private Sub Command8_Click()
'打开带有工作组文件的access数据库
Dim xtpf, cxph, fs, d, v As String
Dim str4 As String
xtpf = CurrentProject.Path '当前路径
cxph = Left(xtpf, 3)
Set fs = CreateObject("Scripting.FileSystemObject")
Set d = fs.GetDrive(fs.GetDriveName(fs.GetAbsolutePathName(cxph)))
v = Hex(d.SerialNumber)
Dim RetVal
str4 = """"
Dim strMDB As String
     Shell str4 & SysCmd(acSysCmdAccessDir) & "msaccess.exe" & str4 & " " & str4 & xtpf & "\管理.mde" & str4 & " /wrkgrp " & str4 & xtpf & "\system.mdw" & str4 & " " & "/User admin" & " " & "/pwd" & " " & "", 2
End Sub

Office中国群管

冰 于2013-10-22 18-33-19：
大家好这个是一段通过vba打开设有工作组文件的access数据库，但是如果数据库有密码的话，应该如何修改？请专家指点

Office中国群管

冬瓜汤 于2013-10-22 18-44-56：
给你一个微软的例子，Dao打开方式
Sub OpenDB()
Dim db As DAO.Database
Dim ws As DAO.WorkSpace
Dim rst As DAO.Recordset
Set ws = DBEngine.WorkSpaces(0)
Set db = ws.OpenDatabase _
("C:\Program Files\Microsoft Office\Office\Samples\Northwind.mdb", _
False, False, "MS AccessWD=northwind")
Set rst = db.OpenRecordset("Customers", dbOpenDynaset)
If rst.RecordCount > 0 Then
   rst.MoveLast
   MsgBox rst!CustomerID
End If
rst.Close
db.Close
End Sub

岭南王子

岭南王子 于2013-10-22 18-46-58：
金山杀毒 360杀毒,哪个比较好?

Office中国群管

冬瓜汤 于2013-10-22 18-47-02：
弱弱地问一句。代码搞得那么复杂有必要吗？[face0.gif]

Office中国群管

冬瓜汤 于2013-10-22 18-47-14：
没有微软的好。兄弟

岭南王子

岭南王子 于2013-10-22 18-47-26：
哪个是微软的?

岭南王子

岭南王子 于2013-10-22 18-47-44：
[qqimg]{B20EB66C-AEF0-F8D6-71A1-60EF82F73C63}.jpg[/qqimg]

Office中国群管

冬瓜汤 于2013-10-22 18-47-45：
系统自带的那个呀