除錯時反復提示列“C”無效
sql = "update tb_TLlist set Tqty=c where Tno='" & Text3.Text & "'"
如果把C改成某個數值，如20：
sql = "update tb_TLlist set Tqty=20 where Tno='" & Text3.Text & "'"
就可以改資料庫
SQL2008資料庫里，Tqty 為int
VB里，C為integer
到底哪里不對呢？具體編碼如下：
我還試過在FLEXGRID改欄位為C，也沒有問題
Private Sub Command3_Click()
Dim rs1 As New ADODB.Recordset
Dim rs2 As New ADODB.Recordset
Dim command As New ADODB.command
Dim sql As String
Dim a As Integer
Dim b As Integer
Dim c As Integer
rs1.Open "tb_TLlist", cnn, adOpenStatic, , adCmdTable
rs2.Open "select * from tb_TLlist where Tno='" & Text3.Text & "'", cnn, adOpenKeyset, adLockOptimistic
a = Val(Text4.Text)
b = rs2.Fields("Tqty")
c = Int(b - a)
If c < 0 Then
MsgBox "?a′?2?×?￡?????D?ê?è?"
Text4.Text = ""
Text4.SetFocus
Else
Label5.Caption = "???a′??1óD" & c
MS1.TextMatrix(MS1.Row, 2) = c
sql = "update tb_TLlist set Tqty=c where Tno='" & Text3.Text & "'"
Set command.ActiveConnection = cnn
command.CommandText = sql
command.Execute
End If
rs1.Close
rs2.Close
End Sub
uj5u.com熱心網友回復：
sql = "update tb_TLlist set Tqty="& c &" where Tno='" & Text3.Text & "'"uj5u.com熱心網友回復：
Tqty是數字，怎么給它字母呢。uj5u.com熱心網友回復：
C是變數吧，不是欄位名吧：sql = "update tb_TLlist set Tqty="& c &" where Tno='" & Text3.Text & "'"
uj5u.com熱心網友回復：
sql=" update 表名 set 字符型欄位='"& 字符型變數 &"' where 字符型欄位='"& 字符型變數 &"'"sql=" update 表名 set 數值型欄位="& 數值型變數 &" where 數值型欄位="& 數值型變數 &""
uj5u.com熱心網友回復：
同意
uj5u.com熱心網友回復：
謝謝大家的回復，不知道為什么老帳戶無法登陸，只能重新注冊一個新的。不知道怎么發點數給幫忙的朋友？
是版主發么？
-------------------菜鳥中的菜鳥
uj5u.com熱心網友回復：
如果之前登記過郵箱的話,可以試試找回密碼什么的.
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/109509.html