XProfan

window 10,10-200,200
declare a$
SQLINIT(Driver={SQL Server};Server=(local)SQLExpress;UID=sa;PWD=sql;Database=AFS_1;)
--UID:User
--PWD:Passwort
--oder so:
--(Bei Systemabfragen vorher keine db-Auswahl!)
SQLINIT(Driver={SQL Server};Server=(local)SQLExpress;UID=sa;PWD=sql)
SQLEXEC USE AFS_1,1--Datenbank wählen (Meldung als Fehler)
a$=SELECT ROUND(CAST(VK1 AS FLOAT),2) FROM Artikel
a$=SELECT VK1 , CONVERT(SMALLMONEY,VK1) FROM Artikel
a$=SELECT OBJECT_ID(Artikel)--Tabelle vorhanden?
a$=EXEC sp_columns Artikel--Infos über Spalten
a$=EXEC sp_columns Artikel , @column_name=EK --Infos über eine Spalte
a$=EXEC dbo.sp_columns_rowset Artikel--Infos über Spalten
a$=EXEC sp_tables @table_type = qTABLEq---Tabellen in DataBase
a$=SELECT * FROM INFORMATION_SCHEMA.TABLES--Tabellen in DataBase (z.B. nur Name)
a$=SELECT * FROM INFORMATION_SCHEMA.COLUMNS--zu langsam !?
a$=SELECT * FROM syscolumns--zu langsam !?
a$=SELECT * FROM SYSDATABASES--Datenbanken auflisten
---Backup anlegen
a$=BACKUP DATABASE AFS_1 TO DISK = NC:1TestTest.bak WITH DESCRIPTION =Bemerkung
--Backup zurückspielen
a$=RESTORE DATABASE AFS_1 FROM DISK = NC:1TestTest.bak WITH FILE=1
--Infos über Backup-Datei
a$=RESTORE HEADERONLY FROM DISK = C:1TestTest.bak
SQLEXEC a$,1
SQLDONE
listbox$(,2)