1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
| *** handle alma ve dbf'leri saklayacağın alan belirleme
lnHserver=SQLSTRIGCONNECT('Driver={SQL Server Native Client 10.0}; Server=ML350\SQLEXPRESS; Database=nkt; uid=sa; pwd=xx')
lnHlokal=SQLSTRIGCONNECT('Driver={SQL Server Native Client 10.0};'+;
'Server=KONUKPC\SQLEXPRESS;Database=nkt;Trusted_Connection=yes;' )
&& database i belirtmek iyi oluyor - bendeki nkt,
&& yanlışlıkla bütün SQLserverdeki database ile işlem yapılmasın
#DEFI DBF_SAKLAMA_YERI "c:\gecici\" && veya dilenen dizin \olmazsa kodda ADDBS() kullanılabilinir
IF ! DIRECTORY(DBF_SAKLAMA_YERI)
MD(DBF_SAKLAMA_YERI)
ENDIF
*** kopyalama bölümü
* #DEFI DBF_SAKLAMA_YERI "c:\gecici\"
SQLTABLES(m.lnHserver,'TABLE','curtable')
SCAN
m.Xkomut="select * from "+ALLTRIM(curtable.table_cat)+".."+ALLTRIM(curtable.table_name)
m.Xdbf=DBF_SAKLAMA_YERI+ALLTRIM(table_name)+".dbf"
WAIT WINDOW m.Xdbf NOWAIT NOCLEAR
SQLEXEC(m.lnHserver,m.Xkomut,"xcur")
SELECT * FROM xcur INTO DBF (m.Xdbf)
SELECT curtable
ENDSCAN
WAIT CLEAR
*** silme bölümü (lokalde eski datayı) primer indexler için iyi oluyor
SQLTABLES(m.lnHlokal,'TABLE','curtable')
BROWSE && neler SİLİNECEĞİNİ gözden geçirme -esc ile devam
SCAN
m.Xkomut="delete from "+ALLTRIM(curtable.table_cat)+".."+ALLTRIM(curtable.table_name)
m.Xdbf=DBF_SAKLAMA_YERI+ALLTRIM(table_name)+".dbf"
IF FILE(m.Xdbf) AND 6=MESSAGEBOX(m.Xdbf,292,"SQL dosyalar silinsin mi")
IF 1>SQLEXEC(m.lnHlokal,m.Xkomut)
DO hata
ENDIF
ENDI
SELECT curtable
ENDSCAN
***SQL'e yazma bölümü
CLOSE DATABASES
SQLTABLES(m.lnHlokal,'TABLE','curtable')
BROWSE && neler yazılacağını gözden geçirme -esc ile devam
SCAN
m.Xdbf=DBF_SAKLAMA_YERI+ALLTRIM(table_name)+".dbf"
IF FILE(m.Xdbf) AND 6=MESSAGEBOX(m.Xdbf,292,"SQL dosyalar eklensin mi")
SELECT 0
USE (m.Xdbf) AGAIN && ne olur ne olmaz
m.Xkomut="insert into "+ALLTRIM(curtable.table_cat)+".."+ALLTRIM(curtable.table_name)+" values (?arrayx[1]"
FOR m.Xi=2 TO FCOUNT(JUSTSTEM(m.Xdbf))
m.Xkomut=m.Xkomut+", ?arrayx["+ALLTRIM(STR(m.Xi))+"]"
ENDF
m.Xkomut=m.Xkomut+")"
DIMENSION arrayx(FCOUNT(JUSTSTEM(m.Xdbf))) && bunu yapmazsan bir sonraki fcount() küçükse hata oluşuyor
SCAN
SCATTER MEMO TO arrayx
IF 1>SQLEXEC(m.lnHlokal,m.Xkomut)
DO hata
IF 6=MESSAGEBOX("kayıt olmadı",292,"işlem sonlandırılsın mı ?")
RETURN
ENDIF
ENDIF
ENDSCAN
USE
ENDIF
SELECT curtable
ENDSCAN
*** bitti
SQLDISCONNECT(0)
CLOSE DATABASES
*** hata
RETURN
PROCEDURE hata && SQL komut hatalarını belirleme için (UTden almıştım)
LOCAL Array aHata[1]
LOCAL ix,lcHata
Aerror(aHata)
lcHata = ''
FOR ix = 1 TO 7
lcHata = m.lcHata + Transform(aHata[m.ix]) + Chr(13)
Endfor
Messagebox(m.lcHata)
RETURN |
