小编use*_*573的帖子

如何使用VB6从Web浏览器控件中删除滚动条？

如果错误地点击交叉,我怎么能避免关闭表格

我怎么知道表格(我正在处理的表格除外)是开放还是关闭？

如何在VB.NET中比较两个字符串值？

我已经尝试过比较和等于函数,但它没有给我正确的结果.我想要比较的是如下.还有,代码是否正确？

Public Class Form1

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim con As New OleDb.OleDbConnection
        Dim ds As New DataSet
        Try
            con.ConnectionString = "Provider=SQLOLEDB;Data Source=HP-PC\SQLEXPRESS;Integrated Security=SSPI;Initial Catalog=dbname"
            con.Open()
        Catch
            MsgBox("Error in connection")
        End Try

        Dim da As OleDb.OleDbDataAdapter
        Dim sql As String

        sql = "select * from patientprofile"
        da = New OleDb.OleDbDataAdapter(sql, con)
        da.Fill(ds, "patientprofile")
        Dim dr As DataRow
        Dim i As Integer
        i = 0
        With ds.Tables("patientprofile")
            For Each dr In .Rows …