Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: nowa tabela w nowej bazie
Tigrisek



Typ: neutral
Postów: 91
Zarejestrowany: Jul 2002
nowa tabela w nowej bazie

wszędzie znajduję jak się dołączyć do istniejącej mdb, a jak stworzyć nową mdb z tabelą spod vb

powiedzmy klikając na przycisk tworzy sie mdb z jedną tabelą (nawet bez rekordów)

08-05-2003 20:25
Pokaż profil Tigrisek  Wyślij email do Tigrisek        107040
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Mogę podać jedynie polecenia Sql, ktoś kto wie jak wpiąć to do kontrolki to niech to napisze

Create Database Jakastam;
Create Table Przyklad (Pole1 Number, Pole2 Char(20) Not Null);

To tworzy bazę danych i tabelę w bazie. Nie wiem tylko jak zapiąć to do VB, ja używałam przeważnie kontrolek.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

09-05-2003 08:03
Pokaż profil Garf  Wyślij email do Garf   
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

public connect as adodb.connection

Set Connect = New ADODB.Connection

pat=ścieżka gdzie ma byc baza

Connect.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Pat & ";Persist Security Info=False"


i teraz

connect.execute to co napisal Garf

09-05-2003 13:24
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
Try this

Spróbuj takiej instrukcji do utworzenia bazy danych:
    DBEngine.CreateDatabase "C:\bla.mdb"
Do utworzenia pustej tabeli w nowej bazie użyj polecenia SQL:
    SELECT [ID] AS Wyr1 INTO bla IN 'C:\bla.mdb';

lub


CREATE TABLE Przyjaciele
([IDPrzyjaciela] integer,
[Nazwisko] text,
[Imię] text,
[DataUrodzenia] date,
[Telefon] text,
[Uwagi] memo,
CONSTRAINT [Indeks1] PRIMARY KEY ([IDPrzyjaciela]));



_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

10-05-2003 10:43
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Tigrisek



Typ: neutral
Postów: 91
Zarejestrowany: Jul 2002

no panowie ... niestety nic mi z tego nie wychodzi

JoFerrari:
operacja niedopuszczalna gy obiekt jest zamknięty
a otworzyc nie moge bo go przeciez jeszcze nie ma

losmac
argument not optional
a jak pokombinowałem to "nie mozna znalezc instalowalnego pliku isam" !?!?!

nic nie kumam ehhhh

11-05-2003 14:00
Pokaż profil Tigrisek  Wyślij email do Tigrisek        107040
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

Sorki tamto to ci podalem tak z pamieci myslalem ze dziala(dawno tego nie robilem)

To dziala na pewno

  Dim cat As ADOX.Catalog
  Dim cn As ADODB.Connection
  Dim rs As ADODB.Recordset
  Dim numrecords As Long
  Dim i As Long

  Set cat = New ADOX.Catalog
  Set cn = New ADODB.Connection
  Set rs = New ADODB.Recordset
 
  On Error Resume Next
 
  'Usuń przykładową bazę danych,  jeśli już istnieje.
  Kill "c:\findseek.mdb"
  On Error GoTo 0
 
  ' Utwórz nową bazę danych Jet 4.0 pod nazwą findseek.mdb
 
  cat.Create "Provider=Microsoft.Jet.OLEDB.4.0;" & _
  "Data Source=c:\findseek.mdb"
 
  ' Ustaw dostawcę, otwórz bazę danych,
  'oraz utwórz nową tabelę o nazwie tblSequential.
 
  cn.Provider = "Microsoft.Jet.OLEDB.4.0"
  cn.Open "Data Source=c:\findseek.mdb"
  cn.Execute "CREATE TABLE tblSequential (col1 long, col2 text(75));"

14-05-2003 11:38
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Tigrisek



Typ: neutral
Postów: 91
Zarejestrowany: Jul 2002

niech zgadne ... w references aby mieć ADOX musze dodać coś takiego: Microsoft ADO Extensions 2.1 for DDL and Security object library, tak?
ale ja tego nie mam
gdzie to znaleźć?

18-05-2003 21:42
Pokaż profil Tigrisek  Wyślij email do Tigrisek        107040
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

ja wkladam to samo ale 2.5

zainstaluj sobie service packa 4 albo lepiej 5 do visuala tam powinien byc MDACTYP(microsoft data active cos tam)

jak tam nie ma to wpisz powyższe w wyszukiwarke w necie i ściągnij( a napewno jest na stronie microsoftu i stamtad bdziesz mial najnowszego)

18-05-2003 21:54
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
JoFerrari




Typ: neutral
Postów: 75
Zarejestrowany: Apr 2003

eehhh pomylka zle przeczytalem twojego posta....

ale ... w sumie odpowiedz ta sama chyba
Nie wiem skad sie bierze tą referencje mam ją od zawsze ale powinna byc chyba w MDAC 2.7 refresh

18-05-2003 21:57
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Tigrisek



Typ: neutral
Postów: 91
Zarejestrowany: Jul 2002

no niewiem, ściągnąłem SP5 do VB6 i nic ... nawet jakieś biblioteki ze strony microsoftu ale takiej jaką potrzebuje nie ma
może mi ją ktoś podesłac na maila ?

22-05-2003 12:45
Pokaż profil Tigrisek  Wyślij email do Tigrisek        107040
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Mom! Właśnie piszę moduł do programu bazodanowego i potrzebowałem tworzenia i wyrzucania tabeli w locie. No i znalazłem:

Dim Baza As Database

Set Baza = OpenDatabase("baza.mdb", dbDriverPrompt)
Baza.Execute "Create Table TempF (IDFaktura Char(20))"
Baza.Close

Powinno działać, w referencjach trzeba dodać Ms DAO 3.51 Object Libary


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

25-05-2003 08:58
Pokaż profil Garf  Wyślij email do Garf   
Tigrisek



Typ: neutral
Postów: 91
Zarejestrowany: Jul 2002
iiihhhhhhhhaaaaaaaaaa

działa
Graf dzieki za podpowiedz, w sumie to co napisałeś Ty i losmac zaowocowało czyms takim

Dim Baza As Database
Set Baza = CreateDatabase("c:\baza.mdb", dbLangPolish, dbVersion30)
Baza.Execute "Create Table Tabela1 (Pole1 Char(20))"
Baza.Close

tylko co to jest ten char(20) bo w msdn jest opisane jako kwadracik ?!?

JoFerrari, nadal nie moge sie dokopac do ADOX ... podeślij mi biblioteke jeśli możesz

25-05-2003 18:44
Pokaż profil Tigrisek  Wyślij email do Tigrisek        107040
Garf




Typ: neutral
Postów: 65
Zarejestrowany: Apr 2003

Char(20) jest to definicja typu pola - pole tekstowe o długości 20 znaków. Inne typy to chyba:
Integer - całkowity
Long - całkowity długi
Single - pojedyncza precyzja
Double - podwójna precyzja
Nazwy typów zależą od bazy danych jakiej używasz.


_____________________________________________
Garfield
Member of Blood Brothers Clan (R)

26-05-2003 10:34
Pokaż profil Garf  Wyślij email do Garf   
Wszystkich odpowiedzi: 12 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1