Option Explicit On
Option Strict On
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class dbConsole
Public Shared Sub Main()
Dim db As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & AppPath & "dbConsole\db.mdb;")
Dim cmd As OleDbCommand = db.CreateCommand()
cmd.CommandText = "Select * From People Order By People.Name Asc;"
db.Open
Dim r As OleDbDataReader = cmd.ExecuteReader()
Console.WriteLine()
Do While r.Read()
Console.WriteLine(vbTab & "Name: " & r.GetString(0))
Console.WriteLine(vbTab & "Age: " & r.GetString(1))
Console.WriteLine(vbTab & "Sex: " & r.GetString(2))
Console.WriteLine()
Loop
End Sub
Private Function AppPath() As String
AppPath = Mid$(Application.ExecutablePath, 1, InStrRev(Application.ExecutablePath, "\"))
End Function
End Class
thanks for the explanation so you dont have to move it to the next record in the data reader? It does it automatically in the datareader when your looping
Having some problems using inheritance in vb.net. Maybe you can help. Im trying to use the base class (oleDbConn) within another class. The error im getting states i can't use more than one class? do i need to use module? how do u use classes.
Thanks In Advance
'Base Class
Imports System
Imports System.Data
Imports System.Data.OleDb
Imports Microsoft.VisualBasic
Public Class oleDbConn
Public Shared Sub Main()
Dim dbase As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\helpdesk.mdb;")
Dim faultsDAdapter As New OleDbDataAdapter("Select * from faults", dbase)
Dim faultsDSet As DataSet = New DataSet()
End Sub
End Class
'class im getting errors from.
Public Class administration
Inherits System.Windows.Forms.Form
Reply With Quote
