我的域名价更低 专业国际国内域名超低限量价：45元

网络资源下载中心http://www.nrdc.cn/index.asp大量编程书免费售 不收钱不要邮费 如果本店没有你要的书请到这里给我留言 http://www.nrdc.cn/gbindex.asp 你们开发了东西没有网上空间可放可以到先放我这里来 http;//www.nrd.cn

我的域名价更低 专业国际国内域名超低限量价：45元

网络资源下载中心http://www.nrdc.cn/index.asp大量编程书免费售 不收钱不要邮费 如果本店没有你要的书请到这里给我留言 http://www.nrdc.cn/gbindex.asp 你们开发了东西没有网上空间可放可以到先放我这里来 http;//www.nrd.cn

如果解决不了这个问题可以到网络资源下载中心查一查,不想查看看笑话也好啊.

做正经生意，在我这里创业不需花钱就是辛苦，挣不了大钱一个月挣几百元还是没有一点问题的。
可以加一个变量。用地址进行判断。或直接加一个querystring 变量

我的域名价更低 专业国际国内域名超低限量价：45元

网络资源下载中心http://www.nrdc.cn/index.asp大量编程书免费售 不收钱不要邮费 如果本店没有你要的书请到这里给我留言 http://www.nrdc.cn/gbindex.asp 你们开发了东西没有网上空间可放可以到先放我这里来 http;//www.nrd.cn

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim connStr, selectCmd As String, i As Integer
        connStr = "Server=...; database=...; uid=...; pwd=...;"
        selectCmd = "SELECT * FROM ..."
        Dim conn As SqlConnection, cmd As SqlCommand, reader As SqlDataReader
        conn = New SqlConnection(connStr)
        conn.Open()
        cmd = New SqlCommand(selectCmd, conn)
        reader = cmd.ExecuteReader()
        For i = 0 To reader.FieldCount - 1
            txtShow.Text &= reader.GetName(i) & vbTab
        Next
        txtShow.Text &= vbNewLine & vbNewLine
        Do While reader.Read()
            For i = 0 To reader.FieldCount - 1
                txtShow.Text &= reader.Item(i) & vbTab
            Next
            txtShow.Text &= vbNewLine
        Loop
        conn.Close()
    End Sub