PmAdo - dBase
Posted: Wed 30. Nov 2016 16:26:18
Dobrý den, podotýkám se s problémem u databáze typu dBase. Z dokumentace PROMOTIC jsem si našel jak lze provést zápis. Níže uvedený kód proběhne sice bez chyby a i přesto v cílové složce, nevidím vytvoření souboru typu DBF ve kterém by měla databáze dBase pracovat. Předem děkuji za jakoukoliv radu.
- Code: Select all
Dim oDb, nLastErr1, nLastErr2
Set oDb=pMe.Pm("../../Akce/PmAdo")
oDb.DbBeginTrans
If oDb.LastErr = 0 Then
oDb.DbExecute "", "INSERT table1 (name, value) VALUES ('pi', 3.14)", ""
nLastErr1 = oDb.LastErr
oDb.DbExecute "", "INSERT table2 (name, value) VALUES ('pi', 3.14)", ""
nLastErr2 = oDb.LastErr
If nLastErr1 = 0 And nLastErr2 = 0 Then
oDb.DbCommitTrans
Else
Pm.Debug oDb.LastTextErr
oDb.DbRollbackTrans
End If
End If