Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: zamiast plików DAT baza Access
jamajka




Typ: neutral
Postów: 18
Zarejestrowany: Apr 2005
zamiast plików DAT baza Access

No więc próbuję, jak mnie podpowiedział Musman bawić się z kontrolką data. Kombinuję min. na takim ćwiczonku:

Private Sub Form_Load()

' dostęp do pliku bazy danych dla kontrolki data:
With Data1
.Connect = "Access"
.DatabaseName = "baza.mdb"
.RecordSource = "tblAuta"
End With

End Sub


Czy może mi ktoś podpowiedzieć jak do niej dodawać wpisy z pozycji użytkownika. np: z 5 tekxtboxów, tak aby dopisywało to w tblAuta. Bo nie mogę załapać, może jakiś przykład (naprawdę jeszcze mało wiem), dzięx


_____________________________________________
Chcę wiedzieć, ale czy potrafię zrobić?

24-04-2005 12:35
Pokaż profil jamajka  Wyślij email do jamajka   
musman
www.codec.pl



Typ: neutral
Postów: 202
Zarejestrowany: Mar 2003

witam

Sluchaj wlasnie przegladalem dzial Bazy danych i jest tam naprawde sporo przykladow jak sie polaczyc z Accessem i wszystk co z bazami zwiazane

pozdrawiam

24-04-2005 16:24
Pokaż profil musman  Wyślij email do musman   Odwiedź stronę musman       13495362    3559336
NKris




Typ: neutral
Postów: 15
Zarejestrowany: Apr 2005

Jeżeli textBoxy nie są połączone z kontrolką Data1 i nie wyświetlaja zawartości pliku a tylko służą do dodawania rekordów, to może tak
Private Sub Command1_Click()
With Data1.Recordset
  .AddNew
  !Nazwa1 = Text1: Text1 = "" 'Nazwa1 - nazwa wybranej kolumny
  .Bookmark = .LastModified

End With
End Sub

albo od razu kilka pól

Private Sub Command1_Click()
dim x as Integer
'Pięć pól tekstowych z indeksem 0 - 4
With Data1
  .Recordset.AddNew
  For x = 0 to 4
  .Recordset(x) = Text1(x): Text1(x) = ""
  Next
  .Recordset.Bookmark = .Recordset.LastModified

End With
End Sub

Pozdrawiam

29-04-2005 10:08
Pokaż profil NKris  Wyślij email do NKris   
jamajka




Typ: neutral
Postów: 18
Zarejestrowany: Apr 2005

niestety sa połączone, bo służą też do odczytywania danych z pliku. Mam co prawda kilka przykładów ściągniętych z Planet Source Code, ale one wymagają ode mnie najpierw przetłumaczenia opisów i komentarzy. Więc póki co, jestem na etapie "studiowania", mając nadzieję, że może ktoś tutaj byłby mi uprzejmie małe-conieco podpowiedział.
dzięx

[Post edytowany dnia 30-04-2005 13:01 przez jamajka]


_____________________________________________
Chcę wiedzieć, ale czy potrafię zrobić?

30-04-2005 12:59
Pokaż profil jamajka  Wyślij email do jamajka   
karolinavb




Typ: neutral
Postów: 468
Zarejestrowany: Jan 2003

Jamajko

Jeżeli masz na myśli dodawanie nowych rekordów:
- najpierw

Data1.Recordset.AddNew

- wpisujemy dane i zapisujemy albo przechodząc do poprzedniego rekordu albo wykorzystując "pod przyciskiem" metodę:

Data1.UpdateRecord
Data1.Recordset.Bookmark = Data1.Recordset.LastModified

Jednak, jeśli mogę Ci coś poradzić wygeneruj sobie prostą formę do swojej bazy danych i tabeli za pomocą  Visual Data Manager, w tym wizardzie można skorzystać z kontrolki Data Control (DataForm Designer Wizarda - anie w Add-Ins VB ! ) i możesz sobie wtedy zobaczyć jak jest w tej wygenerowanej formie.
Są w tym wizardzie jeszcze inne wygodne narzędzia. Jeśli masz bazę danych Access 97 nie będziesz miał problemu, jeśli natomiast Access 2000, na stronie jak poniżej jest pokazane jakich poprawek można dokonać w projekcie Visual data Manager , aby on tę wersję bazy obsługiwał.
Project Visdata jest w katalogu przykładów VB 6:

...\Program Files\Microsoft Visual Studio\MSDN98\98VSa\1033\SAMPLES\VB98\visdata

- procedura wprowadznia poprawek tutaj:

http://support.microsoft.com/kb/q252438/
How To Modify the Visual Data Manager (VISDATA) to Work with Access 2000 Databases

[Post edytowany dnia 30-04-2005 14:26 przez karolinavb]


_____________________________________________
Karolina

30-04-2005 14:18
Pokaż profil karolinavb  Wyślij email do karolinavb   
Wszystkich odpowiedzi: 4 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1