Implement a function to connect to a DB

Posted on 2006-11-28
Last Modified: 2010-04-23
using I would like to implement a function that would connect my project to a MS Access database.
using the upgrading tool VB6 to from my software I got this
Public function ADO_Connect() as boolean
dim connSDB as new adodb.connection
      'error handler to exit function and return false if error occurs
      on error goto Err_handler
      ADO_Connect= true "Driver={Microsoft Access Driver (*.mdb)}:DBQ=Path to the database"
      Exit function
'label for error handler
End function

The ADO_Connect procedure will be added to the form load event, and in case the connection failed to be established an message box would be displayed and the form unload
Question by:Arnaud241
  • 3
  • 3
  • 2
LVL 24

Accepted Solution

Jeff Certain earned 125 total points
ID: 18032363
Are you using VS2005? If so,
Imports System.Data
Imports System.Data.Oledb

Dim dt as new Datatable
Using conn as new OleDbConnection("Your connectino string here")
Using cmd as new oledbCommand("your query here",conn)
Using da as New Oledbdataadapter(cmd)
End Using
End Using
End Using

Your data will now be in the datatable dt.
LVL 24

Expert Comment

by:Jeff Certain
ID: 18032366
Major paradigm shift in ADO .NET is to disconnected dadtasets -- you connect, grab the data and disconnect. Gone are the days of persistent connections.

Author Comment

ID: 18032991
I'm using  VB 2005
Free Tool: Site Down Detector

Helpful to verify reports of your own downtime, or to double check a downed website you are trying to access.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.


Author Comment

ID: 18033048
ok, the days of persistent connections are over.
how can I implement a public function that I could can on any form I have in my project.
Actually I'm trying to implement a function that would execute all my SQL queries, such as insert, delete and update.

public function ADO_Execute (byval strQuery as string) as Boolean
on error goto err_handler
Execute strQuery
exit function
end function
 thanks for the help
LVL 34

Expert Comment

ID: 18033360
The equivalent code with VB.NET would be something like (coded onto the screen, so not tested)

public function ADO_Execute (byval strQuery as string) as Boolean
Dim result As Boolean = True
   myCommand.CommandText = strQuery
   result = False
   'some error reporting here if you want it
   If myConnection.State = ConnectionState.Open Then
End Try
Return result
end function

That assumes that there is some declaration and initiation, with scope accessible to this function, of (a) an OleDbConnection and (b) and OleDbCommand - with the OleDbConnection as its .Connection property.

But - while there is no rule against executing your insert, delete and update piecemeal, with a function such as this -the disconnected approach of the ADO.NET model offers other possibilities.  Such as saving them all up (automatically) in the datatable and using a dataadapter to do them all at once.

LVL 24

Expert Comment

by:Jeff Certain
ID: 18033683

This is what happens while I'm driving home LOL

The one scenario you didn't cover (which my original code does, so maybe we can forgive you) is the SELECT statement :)


Author Comment

ID: 18034013
ok, actually I'm kind of new with VB.Net. Can you tell me to implement this function do I have to create a new class just for the functions cause I have to implement more public functions, and be specific on the select statement implementation.
LVL 34

Expert Comment

ID: 18035495
It depends how "pure" you want to be.  The main alternatives are a Class or a Module.  The former is more consistent with the object-oriented approach, the latter is (in my view) slightly easier to code.

Whichever you choose, it sounds as though you want to put all your data objects (dataset/datatable/s, connection, command, dataadapter) and methods (such as the function you proposed) in it.  Then, if you use a Class, you can expose public properties and methods to return such objects/information as you wish to other parts of your app or, if you use a Module, you can just call (and refer to) its public methods and objects from any other part of your app.

For specifics on the select statement implementation, this is a good site for connection strings

You would want the appropriate one from under the heading "OLE DB, OleDbConnection (.NET)".

The query string would be in standard sql format - like

   "SELECT * FROM MyTable"


   "SELECT ThisField, ThatField FROM MyTable WHERE ThisField < 100"


Featured Post

Announcing the Most Valuable Experts of 2016

MVEs are more concerned with the satisfaction of those they help than with the considerable points they can earn. They are the types of people you feel privileged to call colleagues. Join us in honoring this amazing group of Experts.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Suggested Solutions

This article explains how to create and use a custom WaterMark textbox class.  The custom WaterMark textbox class allows you to set the WaterMark Background Color and WaterMark text at design time.   IMAGE OF WATERMARKS STEPS Create VB …
I think the Typed DataTable and Typed DataSet are very good options when working with data, but I don't like auto-generated code. First, I create an Abstract Class for my DataTables Common Code.  This class Inherits from DataTable. Also, it can …
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…
I've attached the XLSM Excel spreadsheet I used in the video and also text files containing the macros used below.…

809 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question