看看代码 什么问题

Question

If all_name <> Empty And all_type <> Empty And all_money <> Empty And all_come <> Empty And all_alldate <> Empty And all_comedate <> Empty And all_num <> Empty And all_bz <> Empty And all_xk <> Empty And all_text <> Empty Then
        strsql = "select all_name from com_all where all_name='" & all_name.Text & "'"
        linkconn (strsql)
        If rs3.EOF = True Then
            strsql = "insert into com_all(all_name,all_type,all_money,all_come,all_alldate,all_comedate,all_num,all_bz,all_xk,all_text) value(" & all_name.Text & "," & all_type.Text & "," & all_money.Text & "," & all_come.Text & "," & all_alldate.Text & "," & all_comedate.Text & "," & all_num.Text & "," & all_bz.Text & "," & all_xk.Text & "," & all_text.Text & ")"
            linkconn (strsql)
            MsgBox "添加成功"
        Else
            MsgBox "此产品已经有了"
        End If
    Else
        MsgBox "请完整输入"
    End If
能够顺利通过   提示“添加成功”   可是没写进 数据库啊

Answer 1

這應該是數據類型的問題，all_money會是文本類型嗎？

Answer 2

首先楼主那个if 语句就错了，MS虽然说可以有那么都层，但就是会错，
我以前就碰到过，
楼主你先用特殊值单步跟踪试试，看有问题吗？

Answer 3

分开来写因该可以吧
比如：if   all_name <> Empty And all_type <> Empty then
      if   all_money <> Empty And all_come <> Empty then
       ......