Chci vytvořit tabulku v MS Access pomocí SQL, napsal jsem následující příkazy, ale kompilátor mi hlási chybu. Nevím si rady, jak to opravit.
Option Compare Database
Option Explicit
Private Sub vytvoreni()
Dim Pokus As database
If Dir("C:\database.mdb") <> "" Then Kill "c:\database.mdb"
Set Pokus = CreateDatabase("C:\database.mdb", dbLangCzech)
Pokus.Close
End Sub
Private Sub aaa()
Dim dbs As database
Set dbs = OpenDatabase("C:\database.mdb")
dbs.Execute "CREATE TABLE tabulka(aaa TEXT(20),bbb MEMO);"
dbs.Execute "CREATE INDEX index1 ON zmija(aaa ASC) WITH PRIMARY;"
dbs.Close
End Sub
Vytvoření tabulky v MS Accessu pomocí SQL
-
- nováček
- Příspěvky: 1
- Registrován: červen 04
- Pohlaví:
-
- Mohlo by vás zajímat
- Odpovědi
- Zobrazení
- Poslední příspěvek
-
-
jak mít nejlepší zvuk s pomocí nastavení nebo s pomocí nějakého softwaru
od ibro79 » 28 pro 2018 19:43 » v Taktování a další úpravy PC - 53
- 2847
-
od richchie
25 led 2019 20:08
-
-
- 5
- 426
-
od butes
21 led 2019 09:41
-
- 4
- 548
-
od Graph
26 úno 2018 13:07
-
- 0
- 323
-
od 7Lucie7
21 bře 2018 09:32
-
- 7
- 609
-
od Microsheep
28 úno 2018 21:39
Kdo je online
Uživatelé prohlížející si toto fórum: CommonCrawl [Bot] a 1 host