Solved

Connecting to a dBASE database using CODE

Posted on 1998-08-18
1
191 Views
Last Modified: 2013-11-24
Hi there,

I just want to ask how can i connect to dBASE using codes.

thanks in advance!

brandon
0
Comment
Question by:bmaranan
1 Comment
 

Accepted Solution

by:
hansbos earned 10 total points
Comment Utility
Bmaranan,

Dim dbDatabase as Database
Dim recDbf as RecordSet
Set dbDatabase = OpenDatabase("c:\dir", False, True, "dBase III;")
Set recDbf = dbDatabase.OpenRecordset("file.dbf", dbOpenTable, dbReadOnly)
recDbf.MoveFirst
Do While Not recDbf.EOF
 'put code here
 recDbf.MoveNext
Loop
0

Featured Post

IT, Stop Being Called Into Every Meeting

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

This collection of functions covers all the normal rounding methods of just about any numeric value.
Article by: Leon
Software Metering within our group of companies has always been an afterthought until auditing of software and licensing became a pain point. Orchestrator and SCCM metering gave us the answer and it was an exciting process.
The viewer will learn how to simulate a series of coin tosses with the rand() function and learn how to make these “tosses” depend on a predetermined probability. Flipping Coins in Excel: Enter =RAND() into cell A2: Recalculate the random variable…
The viewer will learn how to simulate a series of sales calls dependent on a single skill level and learn how to simulate a series of sales calls dependent on two skill levels. Simulating Independent Sales Calls: Enter .75 into cell C2 – “skill leve…

771 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

Need Help in Real-Time?

Connect with top rated Experts

10 Experts available now in Live!

Get 1:1 Help Now