Call LinkData
rs.Open "select * from 房间资料 where 所属楼盘='" & Trim(Combo1.Text) & "'", conn, adOpenDynamic, adLockReadOnly
If rs.EOF = True Then
rs.Close
rs.Open "insert into 房间资料 values ('" & Trim(Combo1.Text) & "','" & Trim(Combo2.Text) & "','" & Trim(Text1.Text) & "','" & Trim(Text2.Text) & "','" & Trim(Combo3.Text) & "','" & Trim(Text3.Text) & "','" & Trim(Combo4.Text) & "','" & Trim(Combo5.Text) & "','" & Trim(Combo6.Text) & "','" & Trim(Text4.Text) & "','" & Trim(Text5.Text) & "','" & Trim(Text6.Text) & "','" & Trim(Text7.Text) & "','" & Trim(Text8.Text) & "','" & Trim(Text9.Text) & "','" & Trim(Text10.Text) & "')", conn, adOpenDynamic, adLockReadOnly
MsgBox "添加成功!", 0 + 48 + 0, "提示"
Combo1.Text = ""
Combo2.Text = ""
Text1.Text = ""
Text2.Text = ""
Combo3.Text = ""
Text3.Text = ""
Combo4.Text = ""
Combo5.Text = ""
Combo6.Text = ""
Text4.Text = ""
Text5.Text = ""
Text6.Text = ""
Text7.Text = ""
Text8.Text = ""
Text9.Text = ""
Text10.Text = ""
Exit Sub
End If
点了添加以后没反应,怎么解决
我输入数据以后,点添加了没有反映
|