VB 数据库问题，

来源：百度知道 编辑：UC知道 时间：2024/06/10 18:27:21
Private Sub Cmd12_Click()
AdoRs.Open "select * from H_FXSZ where FXDM='" & Text4.Text & "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
MsgBox "该内容已经存在,请更换后再保存信息!", 48, "提示"
Text4.Text = ""
Text4.SetFocus
Else

AdoRs2.Open "select * from H_FXSZ where FXMC='" & Text5.Text & "'", Cnn, adOpenKeyset
If AdoRs2.RecordCount > 0 Then
MsgBox "该内容已经存在,请更换后再保存信息!", 48, "提示"
Text5.Text = ""
Text5.SetFocus
Else
Set AdoRs1 = Cnn.Execute("insert into H_FXSZ (FXDM,FXMC,BZFJ,ZDFJ,XNFX) values('" & Text4.Text & "','" & Text5.Text & "','" & Trim(Me.Text6.Text) & "','" & Trim(Me.Text7.Te

你看下面的吧，为我给你修改过了，应该没问题的************************************************************

Private Sub Cmd12_Click()
AdoRs.Open "select * from H_FXSZ where FXDM='" & Text4.Text & "'", Cnn, adOpenKeyset
If AdoRs.RecordCount > 0 Then
MsgBox "该内容已经存在,请更换后再保存信息!", 48, "提示"
Text4.Text = ""
Text4.SetFocus
Else

AdoRs2.Open "select * from H_FXSZ where FXMC='" & Text5.Text & "'", Cnn, adOpenKeyset
If AdoRs2.RecordCount > 0 Then
MsgBox "该内容已经存在,请更换后再保存信息!", 48, "提示"
Text5.Text = ""
Text5.SetFocus
Else
Set AdoRs1 = Cnn.Execute("insert into H_FXSZ (FXDM,FXMC,BZFJ,ZDFJ,XNFX) values('" & Text4.Text & "','" & Text5.