E-kursy - serwis o programowaniu , php, perl, pascal, delphi, c++, java,asembler,c

Łączymy się z bazą danych przez ADO w VB

Otwieramy nowy projekt i dodajemy do niego moduł.
Dodajemy komponent Microsoft ADO Data Control6.0 (OLEDB).
Ustawiamy obiekt adodc na formie.
W module deklarujemy używanie funkcji ShellExecute z biblioteki shell32.dll za pomocą

1
2
3

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long

Po zadeklarowaniu funkcji mozemy przystąpić do połączenia z baza. Najlepiej zrobić to przy ładowaniu formy.
Aby połączyć się z bazą musimy posiadać zmienne do przechowywania danych połączenia, deklarujemy zatem zmienna connect

1
2
3

Dim connect As New ADODB.connection

Teraz ustalamy zawartość tej zmiennej

1
2
3
4

connect.ConnectionString = GloConnectionString
connect.CursorLocation = adUseClient

A teraz następuje właściwe połączenie się z bazą danych

1
2
3

connect.Open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=adres_serwera;DATABASE=nazwa_bazy;UID=użytkownik;PWD=haslo;OPTION=16427"

Gdy jesteśmy już połączeni z bazą możemy zacząć wykonywać operacje.
Pierwszą rzecza jaką musimy zrobić to stowrzyć table. Nasza tabela będzie nazywać się `user`, a pola to `id`, `login`, `mail`

1
2
3

connect.Execute "create table user (id int(2) NOT NULL auto_increment, login char(50) NOT NULL, mail char(50) NOT NULL, PRIMARY KEY (id))"

Teraz należało by dodać jakiś rekord do naszej tabeli.

1
2
3

connect.Execute "insert into user (login, mail) values(""kordan11"","" "")"

Czytamy dane z tabeli

1
2
3
4
5
6
7

Dim records As New ADODB.Recordset
Dim login,mail As String
records.Open "SELECT * FROM user WHERE user.id=1", connect, adOpenStatic, adLockOptimistic
login=records!login
mail=records!mail

Teraz uaktualnimi naszą baze

1
2
3

connect.Execute "update user set mail="" - "" where id=1"

Na sam koniec zostaje nam usunięcie dodanego rekordu, a robimy to tak:

1
2
3

connect.Execute "delete from user where id=1"

Oczywiście po wykonaniu wszystkich operacji musimy zamknać połaczenie z bazą

1
2
3

connect.Close

BTW: Można również stosować inne polecenia, wystarczy w miejsce xxxxx wstawic jakieś polecenie SQL

1
2
3

connect.Execute "xxxxx"

pozycjonowanie i optymalizacja | Pozycjonowanie | limo service chicago Airport | rysunkowe szablony na bloga | teledyski

Kursy

Artykuły

Menu serwisu