Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: VB SQL
anonim




Typ: Nie zarejestrowany
VB SQL

Jesli chodzi o sqla w VB to jestem poczatkujacy i szukam odpowiedzi na najprostrze pytanie :
gdzie wpisuje sie komendy sqla w VB ?

17-04-2004 08:27
  
andrey
Łódź



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

Jezeli chcesz tworzyć kwerendy SQL użyj jakiegos narzędzia które pozawala na interaktywne tworzenie kwerend np.: SQL Server Query Analyzer , możesz użyc dostarczony z VB 6.0 SQL Editor A więc zacznijmy:
Po otwarciu połączenia można wykonywac polecenia (instrukcje SQL) są one definiowane w obiekcie Command. Jeżeli polecenia posiadają parametry  dane te sa przechowywane w obiekcie Parameters. Obiekt Command zawiera wszystkie informacje potzrebne do wysłania polecenia do serwra bazy danych w celu jego wykonania. Każdy obiekt Command niezależnie od  radzaju, jest definiowany i uruchamiany w taki sam sposob.
Uruchomimy razem prosty obiekt Command.
Obiekt Command potrzebuje przed uzyciem przynajmniej dwoch informacji. Za pomca wlasciwosci CommandText nalezy wskazac polecenie, które ma zostać wykonane, natomiast wlasciwosc ActiveConnection nalezy ustawic na otwarty obiekt Connection. Chociaż nie jest to takie ważne, własciwosc CommandType nalezy ustawic na wartosc odpowiednia dla polecenia ktore ma zostac wykonane. Jezeli wartosc ta nie jest okreslona lub wlasciwosc CommandType ustawiona jest na adCmdUnknown serwer bazy danych przed podjeciem jakiegokolwiek działania sam musi określić czy polecenie jest instrukcja SQL, procedurą czy też nazwa tabeli. Chociaż obciązenie z tego tytułu samo w sobie nie jest wysokie moze miec ono wplyw na wydajnosc serwera jezeli bedzie musial realizowac duza liczbe takich zadan.
Stworzymy razem tabele:
Dim c As ADODB.Command

On Error Resume Next

Set c = New ADODB.Command
Set c.ActiveConnection = db
c.CommanText = "Create Table Moja ( Kolumna Char(10))"
c.CommandType = adCmdText
db.Errors.Clear
c.Execute
If db.Errors.Count > 0 Then
  WriteError
End If
Powyższe instrukce wstaw np do jakiegos przycisku. W tym przykładzie nie pisałem o nawiazywaniu polaczenia itp

Pozostała jeszcze analiza błędów:
Private Sub WriteError()
Dim e As ADODB.Error
 
  If db.Errors.Count = 1 Then
    MsgBox"Error" & db.Errors(0).Description
  ElseIf db.Errors.Count > 1 Then
    For Each e In db.Errors
      MsgBox e.Description
    Next e
  End If
  db.Errors.Clear
End Sub
Przykładu który podałem nie należy uruchamiać dwa razy, ponieważ spowoduje to błąd Procedura tworzy tabele w bazie danych jezeli usuniesz tabele mozesz jeszcze raz uzyc tej procedury
Co do obiektu Command mozesz wpisywac rozbudowane instrukcje SQL np:
c.CommandText = "Select Count(*) From Klienci Where Miasto = 'Lodz'"

Proponuje poczytac troche na ten temat Dobra ksiażka była by  Biblia: Visual Basic 6 Programowanie Baz danych Książkę sprzedaje Helion
Powodzenia


_____________________________________________
http://www.carbondesign.pl/ - rowery poziome, trójkołówce, handbike-i, tuning, akcesoria

17-04-2004 10:41
Pokaż profil andrey  Wyślij email do andrey   Odwiedź stronę andrey       3078613
anonim




Typ: Nie zarejestrowany
shivan

dzieki wielkie za obszerny pomac

17-04-2004 11:28
  
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1