Solved

Access & VB6...

Posted on 2000-05-12
3
231 Views
Last Modified: 2010-05-02
I want use Access and VB6 to control databases (high losses changes and see the data) from scratch. (not is cliente/server program, is monouser)

what can I do?  any idea? pls write a skeletor source code or any web page to download code or any

Thanks for all.

regards

0
Comment
Question by:nowait
3 Comments
 
LVL 43

Accepted Solution

by:
TimCottee earned 105 total points
ID: 2803784
nowait, the simple answer to this is "just do it". But to be a little more helpful here is an outline that should at least get you started:

Run access and create a simple table,
Run VB and choose the Data Form Wizard (it is an add-in which you may need to enable from the Tools menu) this will automatically create a form with a grid/text boxes etc and buttons to allow you to add/edit/delete records from the table.

There you have it, at least in essence. From that you can then start to build in additional tables, using the sample code created by the wizard you can see the methods used to manipulate the data and can build further complexity into that until you have a complete application.

I could provide examples of this, but it is difficult to do so well without knowing what sort of application you are trying to produce. In my opinion it is better to go for it in this way and then ask more questions as you encounter problems, or as you find that you cannot get the application to work in the way that you intend.
0
 
LVL 6

Expert Comment

by:setiawan
ID: 2803837
Hi nowait,

here is some examples using ADO

Dim objConn as New ADODB.Connection
Dim objRec as New ADODB.Recordset
Dim sql as string

ObjConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Data\db1.mdb"

sql = "Select * from confirmed where Archived=" & No
ObjRec.Open sql, objConn,2 , 1

That's it

Now, you can do some operation with recordset object

objRec.MoveFirst ' goto first rec
objRec.MoveNext  ' goto next rec
objRec.MoveLast  ' goto last rec

if you want to dispaly the result in the list box, you can do like this :

objRec.MoveFirst
do while objRec.EOF
   list1.addItem objRec.Fields("RoomID")
loop

'dont forget to close the connection and recorset object when you finished

objRec.close
objConn.close
set objRec = Nothing
set objConn = Nothing

hope this helps :)

  danny

0
 

Author Comment

by:nowait
ID: 2803860
Thanks setiawan & TimCotten
0

Featured Post

Ransomware: The New Cyber Threat & How to Stop It

This infographic explains ransomware, type of malware that blocks access to your files or your systems and holds them hostage until a ransom is paid. It also examines the different types of ransomware and explains what you can do to thwart this sinister online threat.  

Question has a verified solution.

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

Suggested Solutions

Title # Comments Views Activity
Visual Basic Excel Formatting error 4 108
vbModal 12 53
Create Files based on Cell Values in a Range in Excel 12 41
VB6 - Scroll Mouse wheel on Picturebox 13 44
I’ve seen a number of people looking for examples of how to access web services from VB6.  I’ve been using a test harness I built in VB6 (using many resources I found online) that I use for small projects to work out how to communicate with web serv…
Background What I'm presenting in this article is the result of 2 conditions in my work area: We have a SQL Server production environment but no development or test environment; andWe have an MS Access front end using tables in SQL Server but we a…
Get people started with the utilization of class modules. Class modules can be a powerful tool in Microsoft Access. They allow you to create self-contained objects that encapsulate functionality. They can easily hide the complexity of a process from…
This lesson covers basic error handling code in Microsoft Excel using VBA. This is the first lesson in a 3-part series that uses code to loop through an Excel spreadsheet in VBA and then fix errors, taking advantage of error handling code. This l…

831 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