VB6 - 帶插入查詢的列名無效

Question

我正在測試一個小程序，將一些數據寫入SQL Server 2008數據庫。這是代碼：

Dim MyConn As ADODB.Connection 
Dim MyRecSet As ADODB.Recordset 
Dim st1 As Integer 

Set MyConn = New ADODB.Connection 
MyConn.ConnectionString = "Provider=sqloledb;" & _ 
     "Data Source=xxx\SQLEXPRESS2;" & _ 
     "Initial Catalog=db;" & _ 
     "User Id=sa;" & _ 
     "Password=xxx" 
MyConn.Open 

st1 = 5 
MyConn.Execute("INSERT INTO steen (steen1) VALUES (st1)") 

MyConn.Close 

但是，我收到錯誤：無效的列名稱'st1'。 我不知道爲什麼我得到這個錯誤。 當我將查詢更改爲：

INSERT INTO steen (steen1) VALUES (5) 

它完美地工作。

有沒有人有一個想法，爲什麼我得到的錯誤？

感謝

Answer 1

嘗試：

MyConn.Execute("INSERT INTO steen (steen1) VALUES ("& st1 & ")") 

或者：

st1 = 5 
Dim StrQuery As String 
StrQuery = "INSERT INTO steen (steen1) VALUES ("& st1 & ")" 


MyConn.Execute(StrQuery)