用ADO如何将数据插入ACCESS

Question

Dim StrCon As String
Dim StrSql As String
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
StrSql = "INSERT INTO hyxx (" _
         & " id,name,sex,hykmc,add,qt,photo,zjhm,sr,dwzy,email,time1)" _
          & " Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') "
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vip system\vip.mdb;Persist Security Info=False"
rs.Open StrSql, StrCon
为什么会提示语法错误，我想用INSERT语句将记录插入出ACCESS数据库中，怎么写

Answer 1

StrSql = "INSERT INTO hyxx (" & _
         & "[id],[name],[sex],[hykmc],[add],[qt],[photo],[zjhm],[sr],[dwzy],[email],[time1])" _
          & " Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') "

Answer 2

INSERT INTO hyxx ( id,name,sex,hykmc,add,qt,photo,zjhm,sr,dwzy,email,time1) Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') 
完整的字符串如上。
字段类型都是文本型的。

Answer 3

我在ACCESS查询里运行这句话可以通过.这是怎么回事，有没有其它完整的代码参考

Answer 4

Dim StrCon As String
Dim StrSql As String
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
语法错误,因改为
Set con = New ADODB.Connection
Set rs = New ADODB.Recordset
 = "INSERT INTO hyxx (" _
         & " id,name,sex,hykmc,add,qt,photo,zjhm,sr,dwzy,email,time1)" _
          & " Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') "
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vip system\vip.mdb;Persist Security Info=False"
rs.Open hyxx, StrCon
StrCon.Execute StrSql

Answer 5

语法错误,正确应是这样
Dim StrCon As String
Dim StrSql As String
Dim con As ADODB.Connection
Dim rs As ADODB.RecordsetSet con = New ADODB.Connection
Set rs = New ADODB.Recordset
 = "INSERT INTO hyxx (" _
         & " id,name,sex,hykmc,add,qt,photo,zjhm,sr,dwzy,email,time1)" _
          & " Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') "
StrCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\vip system\vip.mdb;Persist Security Info=False"
rs.Open  "SELECT * FROM hyxx", StrCon, adOpenKeyset, adLockBatchOptimistic, adCmdText
StrCon.Execute StrSql

Answer 6

在连接数据库后可以用
Conn.Execute "Update 表 Set 字段1="数据",字段2="数据",  Where 条件字段='" + text1.text + "'"

Answer 7

在连接数据库后  插入
Con.Execute "Insert Into hyxx (" _
         & " id,name,sex,hykmc,add,qt,photo,zjhm,sr,dwzy,email,time1)" _
          & " Values('006','fureerle','男','1','1','1','1','1','1','1','1', '1') "

Answer 8

查看一下你的數據庫的字段的類型，如果是數值型的就不要用“'”括起來。
然後在程序的開始加上：
on error resume next
再將
rs.Open StrSql, StrCon
改為：
con.open StrCon
con.execute StrSql
msgbox Err.Description
這樣就可以清楚的看到出錯的信息了，當調試成功後，將on error resume next與msgbox語句刪除。