Office 开发
zhangzs8896
这个作者很懒,什么都没留下…
展开
-
炼钢厂入库单
Sub Pu1rk_write() Dim myCn As New ADODB.Connection Dim myrs As New ADODB.Recordset Dim strcon As String ADO数据库连接串 strcon = "PROVIDER=SQLOLEDB;SERVER=172.16.2.2;UID=sa;PWD=tpcims;DATABASE=Movex原创 2004-09-19 12:17:00 · 743 阅读 · 0 评论 -
PU1统计
--------------查询------------Sub PU1TJ_write() Dim myCn As New ADODB.Connection Dim myrs As New ADODB.Recordset Dim strcon As String -------------ADO数据库连接串------------- strcon = "PROVIDER=SQLO原创 2004-09-19 12:28:00 · 784 阅读 · 0 评论 -
PU1入库情况检查
写 判定部分数据Sub Pu1zj_write() Dim myCn As New ADODB.Connection Dim myrs As New ADODB.Recordset Dim strcon As String ADO数据库连接串 strcon = "PROVIDER=SQLOLEDB;SERVER=172.16.2.9;UID=sa;PWD=tpcims;DATAB原创 2004-09-19 15:28:00 · 828 阅读 · 0 评论