Ребят, не могу понять в чем дело, ругается: no such table f.schet
Код:
UseSQLiteDatabase()
OpenDatabase(#memDB, ":memory:", "", "")
base$ = "C:\Users\user\Desktop\old.sqlite"
sql$ = "CREATE TABLE IF NOT EXISTS SCHET ("
sql$ + "SCHET INTEGER PRIMARY KEY AUTOINCREMENT Not NULL, "
sql$ + "FILENAME TEXT, "
sql$ + "NSCHET TEXT, "
sql$ + "DSCHET TEXT"
sql$ + ");"
If Not DatabaseUpdate(#memDB, sql$)
MessageRequester("Ошибка!", sql$ + DatabaseError(), #PB_MessageRequester_Error)
EndIf
sql$ = "ATTACH DATABASE '"+base$+"' AS f;"
If DatabaseQuery(#memDB, sql$)
FinishDatabaseQuery(#memDB)
Else
MessageRequester("Ошибка!", sql$ + DatabaseError(), #PB_MessageRequester_Error)
EndIf
sql$ = "INSERT INTO main.SCHET Select * FROM f.SCHET;"
If Not DatabaseUpdate(#memDB, sql$)
MessageRequester("Ошибка!", sql$ + DatabaseError(), #PB_MessageRequester_Error)
EndIf
sql$ = "SELECT * FROM SCHET;"
If DatabaseQuery(#memDB, sql$)
While NextDatabaseRow(#memDB)
t$ = GetDatabaseString(#memDB, 0)
Debug t$
Wend
FinishDatabaseQuery(#memDB)
EndIf
Отвечаю на свой вопрос: когда аттачим базу нужно использовать DatabaseUpdate )
Отредактировано amer (21.10.2023 09:54:22)
