ado数据库的存取,怎么实现啊?急现在有人可以答吗?

Question

WINDOWS里有个ADO的帮助。在C:\windows\help目录下，大概是ADO210.HTM吧

Answer 1

    Dim cnn As New ADODB.Connection
    Dim rst As New ADODB.Recordset
    Dim A, C As Integer
    Dim a1, mon, dat As String
    Dim ssql As String
    
    '連結數據庫
    cnn.ConnectionString = "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=新企業數據_暫用;Data Source=farwin-main"
    cnn.Open
    
    ssql = "select * from 內部訂單 " & "where 訂單日期 = " & "'" & orderdt & "'"
    rst.Open ssql, cnn, adOpenKeyset, adLockPessimistic下面是新增與更新insert into  業務交貨傳票( 交貨傳票ID, 交貨單ID, 交貨單號, 出貨日期,
                            客戶編號, 客戶名稱)
 values(交貨傳票ID,交貨單ID, 交貨單號, 出貨日期,
            客戶編號, 客戶名稱)update  業務交貨傳票
            set  交貨傳票ID=交貨傳票ID, 交貨單ID=交貨單ID,
  交貨單號=交貨單號, 出貨日期=出貨日期,
  客戶編號=客戶編號 , 客戶名稱=客戶名稱
where  交貨單號=交貨單號