新增數據問題,盼各位大俠

Question

我想這樣:
當我按一下新增按扭時,首先判斷一下當前文字框是否有文字,如果有,則執行新增,沒有的話就將當前文字框的Enabled 設為 True.
當在執行新增時,我希望不新增到數據庫,只有等點擊保存按鈕時才能將資料增加到數據庫.

Answer 1

command1事件：‘新增
if text1.text <> "" then
   call addtext                '另写一函数来增加！
else 
    text1.enabled  =true
end if
command2事件：‘保存
   ’写入数据库

Answer 2

'工程->引用Microsoft ActiveX Data Objects 2.x Library
Option Explicit
    Public mCnnString As String '定义连接字符串变量
    Dim mRst As New ADODB.RecordsetPrivate Sub Command1_Click()
    If Text1.Text <> "" Then
        mRst.AddNew
        mRst.Fields(1) = Text1.Text
        mRst.Fields(2) = Text2.Text
        mRst.Fields(3) = Text3.Text
    Else
        Text1.Enabled = True
        Text2.Enabled = True
        Text3.Enabled = True
    End If
End SubPrivate Sub Command2_Click()
    mRst.UpdateBatch
End SubPrivate Sub Form_Load()
    mCnnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb" & ";Persist Security Info=False"
    If mRst.State = adStateOpen Then mRst.Close
    mRst.CursorLocation = adUseClient
    mRst.Open "Select * From tblTemp1 Where 1 = 0", mCnnString, adOpenStatic, adLockBatchOptimistic, adCmdText
End Sub