reading records from a .dbf file

Question

suneel kar 0 Junior Poster in Training

17 Years Ago

anyone who can help me regarding how to read data from .dbf files recordwise.

visual-basic

6 Contributors
67 Replies
2K Views
4 Years Discussion Span
Latest Post 13 Years Ago Latest Post by ppappu

All 67 Replies

jireh 3 Posting Whiz

17 Years Ago

Hi Vee,

you know I'm confused, why we dont need to mention the dbf file but only their path?

the connection is now ok but there's still a problem on me here why I can't use it in a query? here's my code for that dbf.

Set db = OpenDatabase(App.Path & "\", False, False, "dBase IV;")
Set Data1.Recordset = db.OpenRecordset("select * from color where clrcode='" & Text1.Text & "'")

Is there something I should add in my query?
The error is in here

Set Data1.Recordset = db.OpenRecordset("select * from color where clrcode='" & Text1.Text & "'")

jireh 3 Posting Whiz

17 Years Ago

Here, enjoy!!!
http://www.ask.com/web?q=visual+basic+tutorial&search=search&qsrc=0&o=0&l=dir

Reply to this topic

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.

AV Manoharan 0 Junior Poster · Answer 1 · 2007-07-20T16:13:14+00:00

anyone who can help me regarding how to read data from .dbf files recordwise.

See it in the thread Access to any type of DB's possible for your dbase and opening 2 files for your writng records to text files

regards
AV Manoharan

QVeen72 104 Posting Shark · Answer 2 · 2007-07-21T12:13:33+00:00

Hi Suneel,

Add DAO reference :Microsoft DAO 3.51 object Library To ur Project and use thos code:

Dim DB As Datbase
Dim RST As RecordSet
Dim sSQL As String
Set DB = DBEngine.OpenDatabase("C:\MyDBFFolder", False, False, "dBASE III;")
sSQL= "Select * From MyTable"
Set RST= DB.penRecordset(sSQL)

Note In Above DB Statement, u have to specify the path of Folder Name where Dbf files are Located. and u can change the
DBase III according to ur dbase version.

REgards
Veena

suneel kar 0 Junior Poster in Training · Answer 3 · 2007-07-21T16:47:31+00:00

hi veena ,
thanx for replyin. will u plz tell me what actually this statement does in code.
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Resources\MNYL.mdb ; Persist Security Info=False"

As i am new to programming in visual basics so tell me any way to get every cocept clear.
any book if u recomend me .will be thankful.
dabasish and u have strong knowlge of vb .keep it up .
regards
suneel kar

Hi Suneel,
Add DAO reference :Microsoft DAO 3.51 object Library To ur Project and use thos code:
Dim DB As Datbase
Dim RST As RecordSet
Dim sSQL As String
Set DB = DBEngine.OpenDatabase("C:\MyDBFFolder", False, False, "dBASE III;")
sSQL= "Select * From MyTable"
Set RST= DB.penRecordset(sSQL)
Note In Above DB Statement, u have to specify the path of Folder Name where Dbf files are Located. and u can change the
DBase III according to ur dbase version.
REgards
Veena

suneel kar 0 Junior Poster in Training · Answer 4 · 2007-07-21T17:20:45+00:00

hi veeva
i am gettin confused dear. as per debashish he is sayin ADO is advanced one which we r using now and u sayin DAO
sort out the things and reply which to use
regards
suneel kar

hi veena ,
thanx for replyin. will u plz tell me what actually this statement does in code.
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\Resources\MNYL.mdb ; Persist Security Info=False"
As i am new to programming in visual basics so tell me any way to get every cocept clear.
any book if u recomend me .will be thankful.
dabasish and u have strong knowlge of vb .keep it up .
regards
suneel kar

jireh 3 Posting Whiz · Answer 5 · 2007-07-23T05:52:47+00:00

Hi vee!

Set db = OpenDatabase(App.Path & "\COLOR.dbf", False, False, "dBase IV;")

I try your code because I also use some dBase but it has an error "C:\report\Color.dbf" isn't a valid path. Make sure that the path name is spelled correctly and that you are connected to the server on which the file resides.I don't understand why because the color.dbf file is in the folder c:\report and my VB Project is also on that folder too. Why it makes an error like that?

QVeen72 104 Posting Shark · Answer 6 · 2007-07-23T12:38:54+00:00

Hi Jireh,

Look as i said in my post u should mention only dbf's "Path"
change "C:\report\Color.dbf" this to
"C:\report"

DBF files donot have the concept of Single Databeas, each tables are stored as seperate
files, thats the reason we need to mention Folder path of dbf files.

Hi Suneel,
DBF is a older technology of databases. It may be possible to open dbf with ADO also, but I think they can be accessed fast using DAO's .

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 7 · 2007-07-23T14:19:04+00:00

hello debashish,veena
have alook n the code.when i am compiling this it is givin me unknown databse format.
regards
suneel

Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset
Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\CHECK_2045.dbf ; Persist Security Info=False"
rs.Open Text1.Text, con, adOpenForwardOnly, adLockOptimistic
Dim str As String
If Dir("c:\Suneel_Development\New Folder\record reading\data.txt") <> "" Then
Kill "c:\Suneel_Development\New Folder\data.txt"
End If
Open "c:\Suneel_Development\New Folder\DATA.TXT" For Append As #1
Do While rs.EOF = False
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
str = str & IIf(IsNull(rs(i)), "null", rs(i)) & Chr(9)
Else
str = str & IIf(IsNull(rs(i)), "null", rs(i))
End If
Next
Print #1, str
rs.MoveNext
str = ""
Loop
Close #1
rs.Close
con.Close
End Sub

Hi Jireh,
Look as i said in my post u should mention only dbf's "Path"
change "C:\report\Color.dbf" this to
"C:\report"

DBF files donot have the concept of Single Databeas, each tables are stored as seperate
files, thats the reason we need to mention Folder path of dbf files.
Hi Suneel,
DBF is a older technology of databases. It may be possible to open dbf with ADO also, but I think they can be accessed fast using DAO's .
Regards
Veena

QVeen72 104 Posting Shark · Answer 8 · 2007-07-23T14:48:20+00:00

Hi Suneel,

if u r using ADO, then open Connection like this:

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Extended Properties=DBase IV"

u have to give Extended properties in connection string, and when it comes to .dbf or older Foxpro Versions of data, they dont have a single DB, u have to mention Folder path name.

Regards
Veena

QVeen72 104 Posting Shark · Answer 9 · 2007-07-23T15:26:02+00:00

Hi Suneel,

What does ur Text1.Text contain...?
It shoud have either Table name (CHECK_2045) or a Select Query Statment (Select * From CHECK_2045)

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 10 · 2007-07-23T15:55:22+00:00

hi veena .
con.open statement worked.
"rs.Open Text1.Text, con, adOpenForwardOnly, adLockOptimistic"
what it does actually.reply
regards
suneel

Hi Suneel,
if u r using ADO, then open Connection like this:
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & ";Extended Properties=DBase IV"
u have to give Extended properties in connection string, and when it comes to .dbf or older Foxpro Versions of data, they dont have a single DB, u have to mention Folder path name.

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 11 · 2007-07-23T16:20:07+00:00

hi veena
is it possible that text1.txt can contain CHECK_2045.pdf.
can i give the name of folder directly where CHECK_2045 is present.
CHECK_2045 is present in C:\Suneel_development\New Folder\record reading\CHECK_2045.pdf
may i write like this
"rs.Open CHECK_2045.pdf, con, adOpenForwardOnly, adLockOptimistic
it is giving object required error.
wt to do here
regards
suneel

Hi Suneel,
What does ur Text1.Text contain...?
It shoud have either Table name (CHECK_2045) or a Select Query Statment (Select * From CHECK_2045)

Regards
Veena

QVeen72 104 Posting Shark · Answer 12 · 2007-07-23T16:22:54+00:00

hi Suneel,

In the above Program, con is the Connection Object which allows u to connect to the Database. Since Database has many sets of tables, u will have to use RecordSet object to access data.

check this :
rs.Open "Select * from MyTable", con, adOpenForwardOnly, adLockOptimistic

here RS is the Recordset object which actuualy holds Table Data, this is opened thru Con object.
CHECK_2005 should be .dbf File and Is actually the Table and u r opening it thru recordset.

u cannot open PDF files with ADO in VB6

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 13 · 2007-07-23T16:58:31+00:00

hi veena
we cannot open PDF files with ADO in VB6.is it so.
i placed CHECK_2045.dbf In MyTable and tried ur cde buttttt it could not find the MyTable
if u dont mind may i send u my project.
reply soon

QVeen72 104 Posting Shark · Answer 14 · 2007-07-23T17:52:16+00:00

Hi,

Create Folder "MyDBF" in C
and place all dbfs's there in ("c:\MyDBF")
and use this code:

con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDBF; Extended Properties=DBase IV"
rs.Open "Select * from CHECK_2005", con, adOpenForwardOnly, adLockOptimistic

Yes, u can send me the project. I will modify and return back.

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 15 · 2007-07-23T17:59:34+00:00

hi i was waitin for ur reply but u went offline. hey how to send projct to u.may i have ur mail id where i can send it .
reply now
regards
suneel

Hi,
Create Folder "MyDBF" in C
and place all dbfs's there in ("c:\MyDBF")
and use this code:
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\MyDBF; Extended Properties=DBase IV"
rs.Open "Select * from CHECK_2005", con, adOpenForwardOnly, adLockOptimistic
Yes, u can send me the project. I will modify and return back.

Regards
Veena

QVeen72 104 Posting Shark · Answer 16 · 2007-07-23T18:04:51+00:00

Hi,

U can Zip and upload the proj here, or i have sent u pvt msg abt my email id

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 17 · 2007-07-23T18:18:07+00:00

ya i got ur pvt msg.
veena my gmail id is suneelkashmiri@gmail.com,rediff id is kar_suneel022@rediffmail.com
add me there .
modify the project and send it in my gmail id .
with regards
suneel kar

Hi,
U can Zip and upload the proj here, or i have sent u pvt msg abt my email id
Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 18 · 2007-07-23T18:34:24+00:00

hi veena
if possible give me ur gmail id i will be thankful to u.
regards
suneel kar

suneel kar 0 Junior Poster in Training · Answer 19 · 2007-07-25T12:02:25+00:00

hello gud mornin dear
veena is there any website which can guide me or provide tutorial for vb topic wise.
if any then plz do reply
regards
suneel

Hi Suneel,
What does ur Text1.Text contain...?
It shoud have either Table name (CHECK_2045) or a Select Query Statment (Select * From CHECK_2045)

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 20 · 2007-07-25T12:07:23+00:00

hello bro
may i know the name of any website which gives nline tutorial of vb topicwise
reply
regards
suneel

suneel kar 0 Junior Poster in Training · Answer 21 · 2007-07-25T14:42:05+00:00

helllllllloooooo
where r u dear.am waitin here since mornin.
tccc

suneel kar 0 Junior Poster in Training · Answer 22 · 2007-07-26T10:33:28+00:00

thanx alot dear for givin me the website. i just checked the site.
thanx alot again dear.may i have ur mail id dear if u dont mind .mine gmail id is suneelkashmiri@gmail.com
be in touch .
with regards
suneel

Here, enjoy!!!
http://www.ask.com/web?q=visual+basic+tutorial&search=search&qsrc=0&o=0&l=dir

suneel kar 0 Junior Poster in Training · Answer 23 · 2007-07-26T12:41:48+00:00

hello veena
i am sendin u the code see wts problem in this.
it is givvin "unrecognized database format" error.
reply plzz.
code is
Dim con As New ADODB.Connection
Dim rs As New ADODB.Recordset

Private Sub Command1_Click()
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & App.Path & "\RR.dbf ; Persist Security Info=False"
rs.Open RR, con, adOpenForwardOnly, adLockOptimistic
Dim str As String
If Dir("c:\Suneel_Development\New Folder\New Folder\data.txt") <> "" Then
Kill "c:\Suneel_Development\New Folder\New Folder\data.txt"
End If
Open "c:\Suneel_Development\New Folder\New Folder\DATA.TXT" For Append As #1
Do While rs.EOF = False
For i = 0 To rs.Fields.Count - 1
If i < rs.Fields.Count - 1 Then
str = str & IIf(IsNull(rs(i)), "null", rs(i)) & Chr(9)
Else
str = str & IIf(IsNull(rs(i)), "null", rs(i))
End If
Next
Print #1, str
rs.MoveNext
str = ""
Loop
Close #1
rs.Close
con.Close
End Sub

QVeen72 104 Posting Shark · Answer 24 · 2007-07-26T12:59:22+00:00

Hi SUNEEL,

INSTALL "DAOSDK/REDIST" FROM VISUAL STUDIO 6.0 CD (first/second)

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 25 · 2007-07-26T13:06:38+00:00

hello veena
they r sayin itis already installed .not required also.
regards
suneel

QVeen72 104 Posting Shark · Answer 26 · 2007-07-26T13:13:35+00:00

Hi,

Why dont u install it once again and try..., as i told u it doesnt install on its own..

Regards
Veena

suneel kar 0 Junior Poster in Training · Answer 27 · 2007-07-26T13:22:41+00:00

HEY VEENA
itna gussa nt good .i was just sayin na ki conecrned persons told methat it is already installed.
anyways thanx
suneel

reading records from a .dbf file

Recommended Answers Collapse Answers

All 67 Replies

Recommended Answers