MySQLへのレコード追加

質問

VB6でMySQL4.1に接続して
テーブル"table1"にレコードを追加したいんですけど
MySQLには接続できるんですけど、新しいレコードを
追加できません。
エラーメッセージは
　Unknown column 'ID'in'fieldlist'
とでます。
教えてください。

Dim SQL As String
Dim ID As Integer
Dim name As String
Dim cmd As ADODB.Command

Set cmd = New ADODB.Command
ID = Text1.Text
name = Text2.Text
SQL = "insert into table1(AID,Aname) values(ID,name) "

cmd.ActiveConnection = cn
cmd.CommandText = SQL
cmd.Execute

table1の内容は
AID Aname ←フィールド名
-------------　　
1　 suzuki
2 satou
3 takahasi
みたいな感じです。

回答No.1

saintandre · ベストアンサー

"ID"と"name"という文字列を送信しても駄目です。
きちんと変数の内容を組み込んでやらないといけません。

誤：SQL = "insert into table1(AID,Aname) values(ID,name) "

↓

正：SQL = "insert into table1(AID,Aname) values('" & ID & "','" & name & "') "

お礼

教えていただいたようにやってみたら
できました。
ありがとうございました。