Displaying a query help

CaJack's Avatar
Go4Expert Member
Hi, I知 having trouble with my code and I知 starting to get lost. The Program takes the country that痴 been typed in to the textbox and when the query button is clicked the program queries an access database for all records that contain the selected country. I think that part works, but I知 having trouble with the output. I want to display only certain fields of the record in a multiline text box, each matching record to a new line, like this
Bob, UK, 99946, red
Joe, UK, 87777, Blue
Mary, UK, 48565, green

The database name is TestDB, the table is InfoTable and the fields are Ename, Region, Enumber, Ecolour. Here痴 the code

 Imports System.IO
Imports System.Data
Imports System.Data.OleDb
Public Class Test
    Dim myString As String

    Private Sub Test_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub butQuery_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles butQuery.Click
        myString = txtRegion.Text.ToString()
        Dim cs As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\VB\Test\TestDB.mdb"
        Dim cn As New OleDb.OleDbConnection(cs)
        Dim dt As New DataTable
        Dim dSet As New DataSet
        Dim sqlString As String

        sqlString = "SELECT Ename, Enumber, Ecolour FROM CMSDB WHERE Region = '" & myString & "'"
        Dim cmd As New OleDb.OleDbCommand(sqlString, cn)
        cmd.Parameters.Add("@myString", OleDb.OleDbType.VarChar, 30).Value = myString
        Dim da As New OleDb.OleDbDataAdapter(cmd)

    End Sub

End Class
Now thats the code and as far as I know it works ok, but when I try the code for the output to the multiline textbox it doesn稚 work so good. Here痴 the code (this code goes right under the da.Fill(dt) above


        For Each dRow As DataRow In dSet.Tables("InfoTable").Rows
            For Each dCol As DataColumn In dRow
                txtQuery.Text = txtQuery.Text & " " & dCol.ToString()
            Next dCol

            txtQuery.Text = txtQuery.Text & vbCrLf
        Next dRow

If anyone can help me get the code working that would be great.
I also seem to get this error 摘xpression is of type 'System.Data.DataRow', which is not a collection type. The error pops up on dRow from this line
 For Each dCol As DataColumn In dRow
Could someone help me get the output code working?
DaWei's Avatar, Join Date: Dec 2006
Team Leader
it doesn稚 work so good
Great explanation for the error associated with the first question. It makes me want to get out a magnifying glass and bust my *** looking.

On the other hand, your statements regarding the second error are good: you give the precise error text. The only problem is that you only "seem" to get the error. Do you or don't you? I would suggest that you look at your post from the viewpoint of a potential helper who is not sitting in your chair, losing sleep and pulling their hair out.