ADO.NET Accessing Excel Databasein VB.NET
This simple program shows how access an access database using ADO.NET. It opens a database mcTest.mdb from your application directory.
This program shows how access an access database using ADO. I have an Access 2000 database in project\bin\debug directory. My database name is mcTest.MDB. You can create your own database and copy in your project's debug directory. I am not attaching database with this code because of size problem.
I have a table 'Developer' in this database which has four columns. I am accessing only two columns Name and Address in this code.
Imports System
Imports System.Data
Imports System.Data.OleDb
Namespace ADONETWriteQuery
' <summary>
' Summary description for Class1.
' </summary>
Class Class1
'Entry point which delegates to C-style main Private Function
Public Overloads Shared Sub Main()
Main(System.Environment.GetCommandLineArgs())
End Sub
Overloads Shared Sub Main(ByVal args() As String)
Dim strDSN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\mcTest.MDB"
Dim strSQL As String = "SELECT * FROM Developer"
' create Objects of ADOConnection and ADOCommand
Dim myConn As New OleDbConnection(strDSN)
Dim myCmd As New OleDbCommand(strSQL, myConn)
Dim datareader As OleDbDataReader = Nothing
Try
myConn.Open()
datareader = myCmd.ExecuteReader()
While datareader.Read()
Console.WriteLine("Developer Name:{0}, Address:{1}", datareader("Name"), datareader("Address"))
End While
Catch e As Exception
Console.WriteLine("Oooops. I did it again:" + ControlChars.Lf + "{0}", e.Message)
Finally
myConn.Close()
End Try
End Sub 'Main
End Class 'Class1
End Namespace 'ADONETWriteQuery
Part 2: Adding Data to an Access Database
This program shows how to insert data in an access database using ADO and SQL query. I have an Access 2000 database in project\bin\debug directory. My database name is mcTest.MDB. You can create your own database and copy in your project's debug directory. I am not attaching database with this code because of size problem.
I have a table 'Developer' in this database which has four columns. I am inserting values into two columns Name and Address in this code.
Imports System
Imports System.Data
Imports System.Data.OleDb
Namespace ADONETWriteQuery
' <summary>
' Summary description for Class1.
' <summary>
Class Class1
'Entry point which delegates to VB-style main Private Function
Overloads Shared Sub Main(ByVal args() As String)
Dim strDSN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\\mcTest.MDB"
Dim strSQL As String = "INSERT INTO Developer(Name, Address ) VALUES(" ''NewName', 'NewAddress')"
' create Objects of ADOConnection and ADOCommand
Dim myConn As New OleDbConnection(strDSN) '
Dim myCmd As New OleDbCommand(strSQL, myConn)
Try
myConn.Open()
myCmd.ExecuteNonQuery()
Catch e As Exception
Console.WriteLine("Oooops. I did it again:" + ControlChars.Lf + "{0}", e.Message)
Finally
myConn.Close()
End Try
End Sub 'Main
End Class 'Class1
End Namespace 'ADONETWriteQuery