VB.NET的messagebox的问题 - 编程论坛

#2

Program新秀2010-01-24 11:17

dim str as string="select * from 表名 where(id='" & textbox.text & ")"
if textbox <>"" then
msgbox(str)
else
msgbox("表中无此记录")
end if

#3

sywzs2010-01-26 10:48

下面的代码供参考
     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Con.Open()
         = "SELECT * from 表名 Where ID = " & Me.TextBox1.Text
        Da.Fill(Ds, "TMP")
        If Ds.Tables("TMP").Rows.Count > 0 Then
            MsgBox("找到" & Ds.Tables("TMP").Rows.Count.ToString & "条记录")
        Else
            MsgBox("没找到符合条件的记录")
        End If
        Con.Close()
    End Sub

#4

lgmsddy2010-01-26 21:13

有点意思

#5

nerfg0022010-03-01 20:01

学习