Sub main()
Dim com As New SqlConnection()
com.ConnectionString = "server=(local);database=test;uid=sa;pwd=;"
Dim str As String = "select hotel_name,hotel_phone from main"
Dim cmd As New SqlCommand(str, com)
Dim da As New SqlDataAdapter(cmd)
Dim ds As DataSet
Dim main As String = "main"
da.Fill(ds, main)
Dim dc As DataColumn
For Each dc In ds.Tables(0).Columns
Console.Write("{0,15}", dc.ColumnName)
Next
Console.Write(vbCtrLf)
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
Dim i As Integer
For i = 1 To ds.Tables(0).Columns.Count
Console.Write("{0,15}", dr(i - 1))
Next i
Console.Write(vbCtrLf)
Next
End Sub
End Class
Dim com As New SqlConnection()
com.ConnectionString = "server=(local);database=test;uid=sa;pwd=;"
Dim str As String = "select hotel_name,hotel_phone from main"
Dim cmd As New SqlCommand(str, com)
Dim da As New SqlDataAdapter(cmd)
Dim ds As DataSet
Dim main As String = "main"
da.Fill(ds, main)
Dim dc As DataColumn
For Each dc In ds.Tables(0).Columns
Console.Write("{0,15}", dc.ColumnName)
Next
Console.Write(vbCtrLf)
Dim dr As DataRow
For Each dr In ds.Tables(0).Rows
Dim i As Integer
For i = 1 To ds.Tables(0).Columns.Count
Console.Write("{0,15}", dr(i - 1))
Next i
Console.Write(vbCtrLf)
Next
End Sub
End Class