SQLite semalarini almak icin kod

Close Databases all

handle = SQLStringConnect("driver={SQLite3 ODBC Driver};Database=C:\myPath\myData.db")

SQLTables(m.handle,'TABLE','TableNames')

Select TableNames

Scan

    lcTableName = Trim(tableNames.Table_name)

    SQLExec(m.handle,Textmerge('pragma table_info(<< m.lcTableName >>)'),'schemaTable')

    If !Used('tableSchemas')

        Select Cast(m.lcTableName as c(50)) as tableName, Cid, ;

            Cast(Strconv(Name,10) as c(50)) as 'name', ;

            Cast(Strconv(Type, 10) as c(20)) as 'Type', ;

            Notnull, Dflt_value, Pk ;

            from schemaTable ;

            into cursor tableSchemas ;

            readwrite

    Else

        Insert into tableSchemas ;

        Select m.lcTableName, Cid, ;

            Cast(Strconv(Name,10) as c(50)) as 'name', ;

            Cast(Strconv(Type, 10) as c(20)) as 'Type', ;

            Notnull, Dflt_value, Pk ;

            from schemaTable

    EndIf

    Select tableNames

endscan

SQLDisconnect(0)

 

Select tableSchemas

browse