Option Explicit
Dim objConn As ADODB.Connection
Dim objCmd As ADODB.Command
Dim objRset As ADODB.Recordset
Const ParaConn = "DSN=ParaDSN"
Private Sub Form_Load()
Set objConn= New ADODB.Connection
objConn.CursorLocation = adUseClient
objConn.Open ParaConn
End Sub
Private Sub 添加_Click()
objConn.Execute ("insert into db200712.DB values ('" & Trim(Text1) & "')")
End Sub
這段代碼應該怎么改呢，沒有頭緒，請各位指教
uj5u.com熱心網友回復：
Public Function cnn() As ADODB.ConnectionSet cnn = New ADODB.Connection
cnn.Open "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Paradox7;Initial Catalog=D:\我的程式\ 原料"
End Function
Private Sub 添加_Click()
cnn.Execute ("insert into db200712.DB values ('" & Trim(Text1) & "','" & Trim(Text2) & "' )")
End Sub
這樣也不對，提示操作必須有一個可更新的查詢
請教各位怎么改呢
uj5u.com熱心網友回復：
Private Sub Command1_Click()Adodc1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=Paradox7;Initial Catalog=D:\我的程式\ 原料"
Adodc1.RecordSource = "select * from db200712.DB "
Adodc1.Refresh
Set MSHFlexGrid1.DataSource = Adodc1
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("plength") = Text1
Adodc1.Recordset.Fields("pdate") = Now
Adodc1.Recordset.Update
Adodc1.Refresh
End Sub
我試了試這種方法，執行到 Adodc1.Recordset.Update，提示操作必須使用一個可更新的查詢，大家幫幫忙解決一下，萬分感謝，我的程式就差這一步就完成了，解決馬上送分
uj5u.com熱心網友回復：
試試：cnn.Execute ("insert into db200712.DB(plength, pdate) values ('" & Trim(Text1) & "','" & Trim(Text2) & "')")
uj5u.com熱心網友回復：
還是不行呀，提示語法錯誤uj5u.com熱心網友回復：
有可能你的資料庫引擎不支持對外部資料庫的更新。換一種連接方式。轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/130463.html
下一篇：解除word檔案保護