Posty bez odpowiedzi |oraz Aktywne tematy Dzisiaj jest 2020-09-29, 19:47x



Odpowiedz w temacie  [ Posty: 4 ] 
Nowa tabela w bazie danych 
Autor Wiadomość

Rejestracja: 2010-11-25, 09:46
Posty: 298
Pomógł: 3
Post Nowa tabela w bazie danych
Cześć utworzyłem nową tabelę w bazie danych poprzez panel pcc.exe, o nazwie Aw
a dokładniej:
Cytuj:
baseAw aw


otrzymuję komunikat

Cytuj:
Błąd składni języka
Niezdefiniowany symbol baseAw aw


2020-08-04, 11:25
Wyświetl profil
Autor Wiadomość
 



Rejestracja: 2010-04-23, 14:14
Posty: 18
Pomógł: 1
Post Re: Nowa tabela w bazie danych
HANDEL ma zaszyte definicje tabel wbudowanych gdzieś "wewnątrz" ;)

Jak robisz swoją - zbuduj inkluda, który będzie zawierał definicję Twojej nowej bazy .

Basedef
field
key
keyfield

Znajdziesz w pomocy AMBASIC - dodawania bazy. Taką samą definicję musisz mieć, aby taką niestandardową bazę odczytać.


2020-08-04, 11:57
Wyświetl profil

Rejestracja: 2010-11-25, 09:46
Posty: 298
Pomógł: 3
Post Re: Nowa tabela w bazie danych
Ogólnie potrzebuję przechować tymczasową wartość gdzieś w bazie danych, gdzie taką wartość mogę ulokować aby nie kolidowało


2020-08-04, 12:39
Wyświetl profil

Rejestracja: 2010-04-23, 14:14
Posty: 18
Pomógł: 1
Post Re: Nowa tabela w bazie danych
No ale to, to masz akurat w helpie - działający kod - zakładanie bazy, dodawanie i odczyt rekordów i kasowanie bazy. Wszystko jest.

https://pomoc.sage.com.pl/Help/ambasic/-/100/27130

Kod:
//Utworzenie struktury definicji bazy danych
BaseDef bDef
//Utworzenie nowej definicja tabeli typu "osoby"
bDef.New("Osoby")
//Zdefiniowanie pól tabeli
bDef.Field(15, 4, "ID")
bDef.Field(11, 40, "Nazwisko")
bDef.Field(11, 20, "Imie")
//Zdefiniowanie klucza podstawowego "ID", automatyczna numeracja
bDef.Key(0x0100, "ID")
//Określenie pola klucza podstawowego
bDef.KeyField(15, 4, "ID")
//Utworzenie i udostępnienie definicji
bDef.Create()
//Określenie położenia pliku bazy
String sciezka=KatalogFirmy() + "NOWABAZA.DAT"
//Utworzenie pliku bazy danych
Create sciezka For Base "Osoby"
//Ustalenie sposobu obsługi błędu tworzenia bazy
BaseError (sciezka, 4)
//Otworzenie bazy danych
Int nrBazy=Open sciezka For Base "Osoby"
BaseError (sciezka, 4)
//Wpisanie do bazy rekordu
SetKey (nrBazy, "ID")
SetKeySeg (nrBazy, "ID", 0)
SetField (nrBazy, "Nazwisko", "Nazwisko1")
SetField (nrBazy, "Imie", "Imię1")
InsRec (nrBazy)
baseError (nrBazy, 4)
//Zamknięcie pliku bazy danych
Close nrBazy
//Powtórne otworzenie pliku bazy danych
Int nrBazy1=Open sciezka For Base "Osoby"
baseError (nrBazy1, 4)
//Ustawienie rekordu bazy do odczytu
SetKey (nrBazy1, "ID")
SetKeySeg (nrBazy1, "ID", 1)
//Odczytanie rekordu bazy
GetRec (nrBazy1, EQ)
baseError (nrBazy1, 4)
//Sprawdzenie zapisanych w rekordzie informacji
String p1=GetField (nrBazy1, "Nazwisko")
String p2=GetField (nrBazy1, "Imie")
String wpis="Zawartość rekordu odczytana z bazy: "+" "+p1+" "+p2
Print wpis;LF
//Zmiana zawartości rekordu
SetField (nrBazy1, "Nazwisko", "NoweNazwisko1")
SetField (nrBazy1, "Imie", "NoweImię1")
PutRec (nrBazy)
//Ponowne ustawienie rekordu bazy do odczytu
SetKey (nrBazy1, "ID")
SetKeySeg (nrBazy1, "ID", 1)
//Sprawdzenie istnienia ustawianego rekordu
Int jest=GetKey (nrBazy1, EQ)
If jest then
Print "W bazie brak ustawianego rekordu"; LF
else
Print "W bazie istnieje ustawiony rekord"; LF
EndIf
//Sprawdzenie zawartości wybranego segmantu klucza ustawionego rekordu
Int Seg=GetKeySeg (nrBazy1, "ID")
Print "Segment ID klucza wybranego rekordu ma wartość: ", Seg; LF
//Odczyt nowej zawartości rekordu
GetRec(nrBazy1, EQ)
//Sprawdzenie zapisanych w rekordzie nowych informacji
String p1n=GetField (nrBazy1, "Nazwisko")
String p2n=GetField (nrBazy1, "Imie")
String wpisn="Zmieniona zawartość rekordu odczytana z bazy: "+" "+p1n+" "+p2n
Print wpisn;LF
//Usunięcie rekordu
SetKey (nrBazy1, "ID")
SetKeySeg (nrBazy1, "ID", 1)
DelRec (nrBazy1)
//Ponowne ustawienie rekordu bazy do odczytu usuniętego rekordu
SetKey (nrBazy1, "ID")
SetKeySeg (nrBazy1, "ID", 1)
//Sprawdzenie istnienia ustawianego rekordu
Int jest1=GetKey (nrBazy1, EQ)
If jest1 then
Print "Sprawdzenie usunięcia rekordu - rekord został usunięty"; LF
else
Print "Sprawdzenie usunięcia rekordu - rekord istnieje"; LF
EndIf
//Zamknięcie pliku bazy danych
Close nrBazy1
//Usunięcie pliku bazy danych
Delete File sciezka
//Sprawdzenie usunięcia pliku bazy danych
Int nrBazy2=Open sciezka For Base "Osoby"
If nrBazy2>0 then
Print "Sprawdzenie usunięcia pliku bazy - baza istnieje"; LF
Close nrBazy2
else
Print "Sprawdzenie usunięcia pliku bazy - baza została usunięta"; LF
EndIf


2020-08-04, 13:10
Wyświetl profil
Wyświetl posty nie starsze niż:  Sortuj wg  
Odpowiedz w temacie   [ Posty: 4 ] 
   Podobne tematy   Autor   Odpowiedzi   Odsłony   Ostatni post 
Na tym forum nie ma nowych nieprzeczytanych postów. HMP 2012 Nowa tabela w bazie danyc

w Programowanie

konikan

7

1822

2012-05-28, 18:17

konikan Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Która tabela w bazie danych odpowiada za bufor zakupu

w Programowanie

Zenek N

0

858

2019-06-05, 09:42

Zenek N Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. datetime w bazie danych

w Programowanie

Zib3l

1

1275

2015-04-13, 16:17

rafal Wyświetl najnowszy post

Na tym forum nie ma nowych nieprzeczytanych postów. Załączniki W bazie danych brak rekordów

w Programy Handlowe

tomaszmax

7

1418

2013-03-18, 16:47

wrob Wyświetl najnowszy post



Kto jest online

Użytkownicy przeglądający to forum: Nie ma żadnego zarejestrowanego użytkownika i 2 gości


Nie możesz tworzyć nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz dodawać załączników

Szukaj:
Przejdź do:  
Powered by phpBB © 2000, 2002, 2005, 2007 phpBB Group.
Support forum phpbb by phpBB Assistant