Guys.......
Problem telah terpecahkan jadi terima kasih untuk yang sudah memberikan
sumbang ide dan saran.
Ada dua pemecahan :
1. Pake Ini
Dim cnM As New ADODB.Connection
Dim rsM As New ADODB.Recordset
Dim xM As String
Dim vrec As Single
Dim vCn As String
Dim Path As String
Private Sub Command1_Click()
On Error Resume Next
Path = "c:\somepath\"
Set cnM = New ADODB.Connection
Set rsM = New ADODB.Recordset
xM = "Select * From [tabel dbf]"
vCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & ";" & _
"Extended Properties=""DBASE IV;"";"
cnM.Open vCn
cnM.CursorLocation = adUseClient
rsM.CursorLocation = adUseClient
rsM.Open xM, cnM, adOpenKeyset, adLockOptimistic
2. Yang pake ini rada njelimet.
a. Bikin file dibawah ini dengan notepad dan simpan dengan nama Fp.reg, dan
doubleklik file tersebut untuk mendaftarkannya di registri
REGEDIT4
[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Jet\4.0\ISAM Formats\FoxPro 3.0]
"Engine"="Xbase"
"ExportFilter"="Microsoft FoxPro 3.0 (*.dbf)"
"CanLink"=hex:00
"OneTablePerFile"=hex:01
"IsamType"=dword:00000000
"IndexDialog"=hex:00
"CreateDBOnExport"=hex:00
"ResultTextExport"="Export data into a Microsoft FoxPro 3.0 file."
"SupportsLongNames"=hex:00
b.Masukin koding berikut :
Path = "c:\sompepath\"
Set cnM = New ADODB.Connection
Set rsM = New ADODB.Recordset
xM = "Select * From [tabel dbf]"
vCn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path & " ;" & _
"Extended Properties=""FoxPro 3.0;"";"
cnM.Open vCn
cnM.CursorLocation = adUseClient
rsM.CursorLocation = adUseClient
rsM.Open xM, cnM, adOpenKeyset, adLockOptimistic
And it's WORK, Guys.........
Trims semuanya.
Selamat ngutakngatik lagih..............
Regards
Gege Nugroho
---------------------------------
Building a website is a piece of cake.
Yahoo! Small Business gives you all the tools to get online.
