Visual Basic 6 & Access 2000
Hi,
This thread is meant as a meeting place for discussion about VB6 and Access in PIC/USB-related projects.
Keith, this tutorial explains database access much better than the Step By Step or Programmer's Guide books from Microsoft that came with my VB6 package.
http://www.vbexplorer.com/VBExplorer...er_ADO_DAO.asp
Robert
My Creality Ender 3 S1 Plus is a giant paperweight that can't even be used as a boat anchor, cause I'd be fined for polluting our waterways with electronic devices.
Not as dumb as yesterday, but stupider than tomorrow!
|
Hi,
A better title for this thread would be:
Visul Basic 6.0 & ADO/Jet database engine
Best regards,
Luciano
|
Not really 'cause I'm using Access to store the data. I'll have tons of questions on that too so I thought this would be a nice place to put them.
Robert
My Creality Ender 3 S1 Plus is a giant paperweight that can't even be used as a boat anchor, cause I'd be fined for polluting our waterways with electronic devices.
Not as dumb as yesterday, but stupider than tomorrow!
|
Stored Queries
One cool thing I've done in the past is utilized stored queries to minimize code. These are similar to stored procedures if you utilize Oracle. You basically create a common sql statement in access, then call that in your vb app (ASP in my case) with the parameters required for the stored query. Here's an example of what I've done.... keep in mind it is for an ASP webpage, but should be similar for VB.
The access query is named InsertProc. And the query code looks like this....Code:***************************************************** <% ' -- InsertProc.asp -- %> <html> <head> <title>Running Stored Procedures in Access Database (Insert Value)</title> <style>p { font-family:verdana,arial; font-size:10pt; font-weight:bold; }</style> </head> <body><p> <% ' Connection String Dim connStr connStr = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" connStr = connStr & Server.MapPath("StoredProc.mdb") & ";PWD=Whateveryourpasswordis" ' Connection Object Dim con Set con = Server.CreateObject("ADODB.Connection") ' Recordset Object Dim rs ' connecting to database con.Open connStr Here we execute the insertproc query ' executing stored procedure Set rs = con.Execute ("exec InsertProc XXX") ' XXX is the data passed to the stored query Now run another stored query called SelectProc Set rs = con.Execute ("exec SelectProc") ' showing all records %> The code below just writes the table data to the web page <table border="1" width="25%"> <%for each x in rs.Fields ' Write the field names in the table headers response.write("<th>" & x.name & "</th>") next%> </tr> <%do until rs.EOF ' Read thru each record %> <tr> <%for each x in rs.Fields ' Put the value of each field of the current record into the table Response.Write "<td>" & (x.value) & "</td>" next rs.MoveNext ' Move to the next record %> </tr> <%loop ' Close connections and release the objects in memory con.Close Set rs = Nothing Set con = Nothing %> </p></body> </html> *************************************************
This simple query inserts the value you pass into Table Names into Field Name.Code:INSERT INTO [Names] ( Name ) VALUES ([@newName]);
The code for the SelectProc is this....
Anyway.... Thought this could be handy for others.Code:SELECT * FROM [Names];
Wisdom is knowing what path to take next... Integrity is taking it.
Ryan Miller
|
Here's an example of emptying a database and adding one record:
Dim dbMenu As Database
Dim rsMenu As Recordset
Set dbMenu = OpenDatabase("E:\EasyHID\Xk1 v2\USBProject\VisualBASIC\Modified code\NR2003.mdb")
Set rsMenu = dbMenu.OpenRecordset("SELECT * FROM tblMenu")
If Not rsMenu.EOF Then
rsMenu.Delete
End If
rsMenu.AddNew
rsMenu!ptrMenu = 1
rsMenu!RecordType = "1"
rsMenu.Update
Robert
My Creality Ender 3 S1 Plus is a giant paperweight that can't even be used as a boat anchor, cause I'd be fined for polluting our waterways with electronic devices.
Not as dumb as yesterday, but stupider than tomorrow!
|
Hi Robert,
First you will have to decide which technology to use
to access the Microsoft Jet database engine.
The two options you have with VB 6.0 are:
Microsoft Data Access Objects (DAO)
Microsoft ActiveX Data Objects (ADO)
Once decided, stick with one!
My two cents advice is to use ADO.
* * *
Are you sure that the users of this forum
are really interested in this stuff?
There are hundred of forums and tutorials talking
about VB, so why not search and subscribe there?
Best regards,
Luciano
Members who have read this thread : 0You do not have permission to view the list of names.
Posting Permissions
Bookmarks