EFU0387的专栏

数据库连接

=MAX((J2-SUM(K2:L2)-5000)*{3,10,20,25,30,35,45}%-{0,210,1410,2660,4410,7160,15160},0)

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 = "员工档案...

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

SELECT * FROM [Sheet1$a:b]

之前听说union与union all在并库时会有“是”与“否”去重的区别，之前一直没有关注到，直接在一次提交工作结果时，与接受方数据核对时发现差异，才发现

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

注意：1、首先要允许使用ACE及动态参数2、excel12.0应写为“excel 12.0” 1、查--允许在进程中使用ACE.OLEDB.12    EXEC master.dbo.sp_MSset_oledb_prop N'Microsoft.ACE.OLEDB.12.0', N'AllowInProcess', 1    --允许动态参数    E

1、查：select * from openrowset('Microsoft.Jet.OLEDB.4.0','Excel 5.0;Database=d:/excel.xls;User ID=;Password=;','select * from [sheet1$]'2、修改：（注意要先把ad hoc distributed queries 设为1）exec

exec sp_addlinkedserver @server='excel',@srvproduct='excel',@provider='Microsoft.Jet.OLEDB.4.0',@datasrc='d:\excel.xls',@provstr= 'excel 5.0'exec sp_addlinkedsrvlogin@rmtsrvname= '