EFU0387的专栏

数据库连接

Sub ReadRstPic() Dim BtArr() As Byte Dim cnn As New ADODB.Connection Dim rst As New ADODB.Recordset Dim myPath As String Dim myTable As String Dim SQL As String myPath = ThisWorkbook.Path & "\员工管理.accdb" myTable = "员工档案...

SELECT * FROM [Sheet1$a:b]

多年前，一家外包公司帮我司一物业公司做仓库收发存管理软件，我方要求先进先出法，该外包公司称那需要加入批次管理，每次出库选择好批次才能实现先进先出。我以为，这完全是谬论，既然是先进先出，那就已经设定好了规律和逻辑，不需要再指定批次，否则那还叫什么先进先出。最近，闲来无事，用EXCEL编了个小程序，经调试，是可以做到先进先出的。上图：备注：出入库按入正出负的原则制订上部分代码：ublic Crr() As Integer, StartingPosition%Sub FirstInFir.

1、VB6连接SQLSERVER2014：Dim Con As New ADODB.ConnectionDim Rs As New ADODB.RecordsetPrivate Sub Form_Load()    Con.ConnectionString = "Driver={sql server};server=192.168.1.104;uid=sa;pwd=;d

Sub rename()     Dim oldname$,zz$, newname$     oldname = Dir("c:\*.*")     Do While oldname           zz = Left(oldname, InStr(1, oldname, ".") - 1)          newname = zz & ".jpg"    

利用HasFormula属性，如果为真时跳过，如果为假是覆盖！