...........else 没有if块.....明明是有么。。。。

Question

Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim sql As String
Dim xabcd As String
xabcd = Text9.Text
Set cnn = New ADODB.Connection
' 引用 ODBC driver 建立连接.
cnn.ConnectionString = "driver={SQL Server};" & _
"server=Jerry;uid=sa;pwd=;database=companydata"
cnn.Open
sql = "select * from qgdh where qgdh=" & Trim(xabcd) & ""
Set rs = cnn.Execute(sql)If rs.EOF = 0 Then MsgBox "12345"
Else
cnn.Execute = ("insert into qgdh (qgdh) values('" & xabcd & "')")
End If
else 没有if块

Answer 1

if 代码 then 代码
或
if 代码 then
代码
end if

Answer 2

If rs.EOF = 0 Then MsgBox "12345" Else cnn.Execute = ("insert into qgdh (qgdh) values('" & xabcd & "')")
也可以。就是祛除END IF，把所有都放在一行

Answer 3

没有换行
要么一行写下来，不要end if
但是这样不利于代码的维护