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

--------------查询------------Sub PU1TJ_write()  Dim myCn As New ADODB.Connection  Dim myrs As New ADODB.Recordset  Dim strcon As String    -------------ADO数据库连接串-------------  strcon = "PROVIDER=SQLO

写 判定部分数据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