باز کردن فایل های دیتا بیس ویژوال بیبسیک

[khamoosh1364]

با سلام. چطور می تونم فایل های دیتا بیس ویژوال بیسیک رو با پسوند dbf مشاهده کنم.البته من با اکسس و اکسل 2007 تونستم باز کنم ولی چون فارسی بود همه کلمات در هم ریخته و قاطی پاطی بود لطفا کمکم کنید تا بتونم این فایل ها رو باز کنم.
با تشکر

[m.4.r.m]

چون فایل های dbf برای داس هست تو ویبی یا تحت ویندوز درست نشون داده نمیشه که باید که تابع مبدل کد بنویسی که سورس کدشم تو سایت زیاده .

Private Function DBFQuantity(FileName As String) As Integer
Dim conRecordset As ADODB.Connection
Dim rsRecordSet As ADODB.Recordset
Dim strSQL As String
Dim Quantity As Integer

Set conRecordset = New ADODB.Connection
Set rsRecordSet = New ADODB.Recordset
'For DBF, the TABLE is the filename.dbf
strSQL = "SELECT Name, Address, Zip, Endorse FROM " & JobListArray(z).FileName & " ORDER BY PS_Seqno"
'.DataPath is /path/to/file excluding the filename
conRecordset.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & JobListArray(z).DataPath & ";Extended Properties=DBase IV"
rsRecordSet.Open strSQL, conRecordset

'I had to do this manually as .MaxRecords and .RecordCount returned errors
Quantity = 0
rsRecordSet.MoveFirst
Do While Not rsRecordSet.EOF
rsRecordSet.MoveNext
Quantity = Quantity + 1
Loop

rsRecordSet.MoveFirst
'I skip the first record as this is only headers and not true data
rsRecordSet.MoveNext
'Make a do-while loop for NOT rsRecordset.EOF to traverse the complete recordset.
With JobListArray(z)
'Record 1
.RecName1 = rsRecordSet.Fields("Name").Value
.RecAddress1 = rsRecordSet.Fields("Address").Value
.RecZip1 = rsRecordSet.Fields("Zip").Value
.RecEndorse1 = rsRecordSet.Fields("Endorse").Value
End With

rsRecordSet.Close
conRecordset.Close
DBFQuantity = Quantity
End Function