Private Sub Command1_Click()
Dim name AsADODB.Connection
Set name = NewADODB.Connection
cn.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;#Source=C:\Users\Administrator\Desktop\整理家\Database3.mdb;"
name.execut "INSERT INTO 生活 VALUES ('001','張三','風','p')"
name.Close
Set name = Nothing
End Sub
有大神能幫忙嗎
uj5u.com熱心網友回復：
改了兩處還是有問題Private Sub Command1_Click()
Dim name As ADODB.Connection
Set name = New ADODB.Connection
name.Open "PROVIDER=Microsoft.Jet.OLEDB.4.0;#Source=C:\Users\Administrator\Desktop\整理家\Database3.mdb;"
name.execut "INSERT INTO 生活 VALUES ('001','張三','風','p')"
name.Close
Set name = Nothing
End Sub
uj5u.com熱心網友回復：
問題資訊你也不說，咱又沒有你的工程檔案，你讓大家怎么幫你？初步懷疑是有表格欄位不止4個。如果有自動增長列，那么寫出欄位，后面寫出對應的值
INSERT INTO table_name (列1, 列2,...) VALUES (值1, 值2,....)
uj5u.com熱心網友回復：
是否有值與列的資料格式不符？uj5u.com熱心網友回復：
后面應該用字串連接啊,直接寫,用"+"uj5u.com熱心網友回復：
還是我眼尖。你沒發現一個單詞寫錯了？execute寫成了execut，話說你就不能根據報錯資訊自行判斷嗎？肯定會寫找不到方法“execut”，估計樓主是那種對于訊息框不看內容，只看見確定兩字的，訊息框對你而言是用來關掉的。
uj5u.com熱心網友回復：
關于自己是否適合編程的很簡單的測驗：在報紙或雜志上隨便找一段約1000字的文章，在Word中輸入一遍。輸完后再參考下面答案：
A里面有10處以上文字或標點錯誤
B里面沒有文字或標點錯誤并敢為此跟人打賭
C里面沒有文字或標點錯誤并且字體和排版完全與原稿一致
D列印在半透明的紙上和原稿重疊在一起檢查一模一樣，且自我感覺很有成就感
A不適合編程（理由：打字準確度偏低、粗心大意）
B初級程式員（理由：打字準確度很高、認真細致、自信、理解全角半角概念）
C高級程式員（理由：在B的基礎上理解字體和排版也是電腦列印的重要因素、但相比D還不夠偏執、精益求精、結果可驗證）
D軟體專案經理（理由：能針對專案給出令人信服的細致到極點的需求說明和典型測驗用例。用戶幾乎挑不出毛病。專業！）
如果想從A變成B的話，到我的資源http://download.csdn.net/detail/zhao4zhong1/4084259里面下載“適合程式員的鍵盤練習”
uj5u.com熱心網友回復：
我對它進行了調整，說外部定義名錯誤
Private Sub Command1_Click()
Dim access As New ADODB.Connection
Set access = New ADODB.Connection
access.Open
access = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\Administrator\Desktop\pp\Database3.mdb;Persist Security Info=False"
Dim a, b, c, d As String
a = InputBox(號碼, [整理家], [在此輸入])
b = InputBox(歸屬人, [整理家], [在此輸入])
c = InputBox(物品名稱, [整理家], [在此輸入])
d = InputBox(物品位置, [整理家], [在此輸入])
access.Execute "INSERT INTO 生活 VALUES (a,b,c,d)"
access.Close
Set access = Nothing
End Sub
第一行報錯
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
錯誤訊息框為什么不截圖？uj5u.com熱心網友回復：
同問，為何訊息框不截圖？uj5u.com熱心網友回復：
Dim a, b, c, d As Stringa = InputBox(號碼, [整理家], [在此輸入])
b = InputBox(歸屬人, [整理家], [在此輸入])
c = InputBox(物品名稱, [整理家], [在此輸入])
d = InputBox(物品位置, [整理家], [在此輸入])
access.Execute "INSERT INTO 生活 VALUES ('" & a & "', '" & b & "', '" & c & "', '" & d & "')"
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/59449.html
標籤：VB基礎類
上一篇：Treeview 資料庫二級顯示
下一篇：編程