tolong bantuannya
saya mau mindahin data dr mqqsl to dbf
Dim gadoCon As New ADODB.Connection
Dim Cnn As New ADODB.Connection
Dim adors As New Recordset
Dim adorss As New Recordset
Private Sub Form_Load()
'untuk mssqlnya
gsConnect = "provider=sqloledb;server=(local);uid=sa;pwd=123456;database=BIOV6"
gadoCon.ConnectionString = gsConnect
gadoCon.Open
'untuk dbfnya
Cnn.ConnectionString
= "Provider=MSDASQL.1;Persist Security Info=False;Extended
Properties=""DriverID=277;Dbq=D:\My Projeck\ANWAR;Driver={Microsoft
dBASE Driver (*.dbf)}"""
Cnn.Open
End Sub
Private Sub Command3_Click()
SqlXSL = "select top 30
nama,departemen,nik,jabatan,tanggal,islibur,jadwalmasuk,jadwalpulang,masuk,pulang,terlambat,pulangawal,jamefektif,lembur,multiplikasi='',alasan,keterangan
from (select * from ABSENSI where
convert(datetime,convert(char(10),tanggal,105),105)>=
convert(datetime,'" & Format(DTPicker1.Value, "dd-mm-yyyy") &
"',105) and convert(datetime,convert(char(10),tanggal,105),105)<=
convert(datetime,'" & Format(DTPicker2.Value, "dd-mm-yyyy") &
"',105) )a left join (select * from KARYAWAN)b on a.pin = b.pin"
Set adors = gadoCon.Execute(SqlXSL)
While adors.EOF = False
sqlStr = "insert into ALASAN.DBF (kdalasan, keterangan, kolom)
values('" & Trim(adors!nama) & "', '" &
Trim(adors!departemen) & "', '" & Trim(adors!nik) & "')"
adorss.Open sqlStr, Cnn , adOpenForwardOnly, adLockReadOnly, adCmdText
Cnn.Execute sqlStr
adors.MoveNext
'Wend
Set adors = Nothing
Set adorss = Nothing
MsgBox "selesai"
End Sub
tetapi selalu keluar pesan error seperti
External table is not in the expected format
tolong Pencerahan untuk para master2
THX
[Non-text portions of this message have been removed]
