誰(shuí)說(shuō)ADO只能讀取文本框的東西了? 那是ADODC控件,而不是ADO對(duì)象,況且ADODC也可以賦值啊,ADODC也不只有用綁定控件這種笨辦法,大可以這樣啊:Text1.Text=ADODC1.RecordSet!FiledName,不用綁定的,綁定最笨了
另外
Execute方法知道嗎?動(dòng)態(tài)生成SQL語(yǔ)句,比如:
Dim TxtSql as String
Dim a as String
TxtSql="UpDate TableName Set FiledName='" & a & "'"
'這樣就已經(jīng)生成了一條Sql語(yǔ)句,然后用Execute方法提交運(yùn)行
要是看不懂的話,先去看看ADO的資料,這是最好的辦法
三斷笛,你好!這是我的演示程序,請(qǐng)看看為什么不能將數(shù)據(jù)寫入到數(shù)據(jù)庫(kù)?
請(qǐng)幫忙修改一下,謝謝!
Private Sub Cmdtest_Click() '測(cè)試按鈕
Dim a As String
Dim b As String
Dim c As String
cs_num = 9
lz_data = 999
bxl_data = 99
'以上是演示用的數(shù)據(jù)
txtFields(0) = cs_num
txtFields(1) = lz_data
txtFields(2) = bxl_data
a = txtFields(0)
b = txtFields(1)
c = txtFields(2)
'---------------------------------
Dim astr1 As String, astr2 As String, astr3 As String
Dim dbAdd As Database
Screen.MousePointer = vbHourglass
Set dbAdd = DBEngine.Workspaces(0).OpenDatabase("e:\vb2\zxky1.mdb")
astr1 = "UpDate csbg set 測(cè)試序號(hào)= '" & a & "'"
astr2 = "UpDate csbg Set 力值='" & b & "'"
astr3 = "UpDate csbg Set 變形量='" & c & "'"
Debug.Print astr1
dbAdd.Execute astr1
Debug.Print astr2
dbAdd.Execute astr2
Debug.Print astr3
dbAdd.Execute astr3
On Error GoTo UpdateErr
datPrimaryRS.Recordset.UpdateBatch adAffectAll
Exit Sub
UpdateErr:
MsgBox Err.Description
Set dbAdd = Nothing
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
