更新資料表

[lawmruss]

之前按照版主大人的作法，完成了呼叫不同的資料表但現在又有
新問題了，想了好久。之前做出的是點下拉式按鈕，他資料表200511
，自動變成你點選的，如200512...，但是在更新的時候，程式
碼二的14行的200511，那個地方好像只能放字串，前面所有的
200511都改成strHtml來置換它，但這個地方就是不行，如果14行
那裡我改成strHtml，結果會出現
"資料庫引擎無法找到輸入資料表或查詢 'strHtml'。請確定它是存在的而且名稱沒有拼錯。"
如果直接用200511，那麼可以正確的更新，但變成沒彈性，請問
要如何處理呢??

程式碼一

1. Sub Btn1_click(Sender As Object,e As EventArgs)
2. Dim strHtml as string = "200511"
3. strHtml = Drop.SelectedItem.Text & Drop1.SelectedItem.Text
4. open_db()
5. end sub


程式碼二

1.　Sub update(Sender As Object,e As DataGridCommandEventArgs)　　　　　　　　　　　
2.
3.　　Dim tk_provider = "Provider=Microsoft.Jet.OLEDB.4.0"
4.　 Dim tk_database = "Data Source=" & Server.MapPath( "nychang.mdb" )
5.　 Dim tk_conn As New OleDbConnection( tk_provider & ";" & tk_database )
6.　 Dim tk_sql,str1,ac_str As String
7.　 Dim tk_cmd As New OleDbCommand(tk_sql,tk_conn)
8.　
9　　 tk_conn.Open()　　
10　 Dim t1 As TextBox
11　 t1=e.Item.Cells(1).Controls(0)
12　 ac_str=grid1.DataKeys(e.Item.ItemIndex)
13　 str1="Set datatable='" & t1.Text & "' Where Date='" & ac_str & "'"
14　 tk_sql = "Update 200511 "　& str1

 


 tk_cmd.ExecuteNonQuery()

 tk_conn.Close()
 grid1.EditItemIndex=-1
 open_db()
End Sub