新增文章

文章标题分类内容

aFAcctID = m_ListInterface.K3Lib.Account.AccountID
   
    Set aRecordset = m_ListInterface.K3Lib.GetData("select FConnectString from  KDAcctDB.dbo.t_ad_kdAccount_gl where FAcctID = " & aFAcctID)
    If aRecordset.RecordCount > 0 Then
   
      aConnStr = aRecordset.Fields("Amt")
      aConnStr = "Provider=SQLOLEDB;Data Source=127.0.0.1;Initial Catalog=AIS20200125211035;User ID=sa;Password=123456;"
      aConnStr = "Persist Security Info=True;Provider=SQLOLEDB.1;User ID=sa;Password=sql2008;Data Source=K3-151;Initial Catalog=K3151_2023"
      
      Set aConnection = New ADODB.Connection: aConnection.ConnectionString = aConnStr

aConnection.CursorLocation = adUseClient
      aConnection.Open '打开数据源
      Set rs = New ADODB.Recordset
      
      aSql = "select * from a_SeOrder_QtyRemainReport" & aSort
      
      rs.Open aSql, aConnection, adOpenDynamic, adLockBatchOptimistic

If rs.RecordCount > 0 Then
          For I = 1 To rs.RecordCount
              '.SetFieldValue "FDecimal44", Val(rs.Fields("Amt")), i
              rs.MoveNext
          Next I
      End If

rs.Close
    End If