Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Problem z SQL
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
Problem z SQL

Cze. mam pewien problem. nawiązałem połączenie z sql serwerem za pomoca vb, ale nie moge powiazac rekordow z tabel z formatka. Robiłem to przez RECORDSET, ale nie działa. oto kod:
Global db As ADODB.Connection
Global rekordy_prac, rekordy_klienci, rekordy_pokoj, rekordy_wynaj As ADODB.Recordset
Global rekordy_typy As ADODB.Recordset
Function inicjacja() As Boolean
inicjacja = True
Set rekordy_prac = New ADODB.Recordset
Set rekordy_prac.ActiveConnection = db
Set rekordy_klienci = New ADODB.Recordset
Set rekordy_klienci.ActiveConnection = db
Set rekordy_pokoj = New ADODB.Recordset
Set rekordy_pokoj.ActiveConnection = db
Set rekordy_wynaj = New ADODB.Recordset
Set rekordy_wynaj.ActiveConnection = db

rekordy_prac.Open

End Function
Sub WriteError()
Dim e As ADODB.Error

If db.Errors.Count = 1 Then
  StatusBar1.SimpleText = "Error: " & db.Errors(0).Description

ElseIf db.Errors.Count > 1 Then
  StatusBar1.SimpleText = "Multiple errors:" & _
      db.Errors(0).Description
 
  For Each e In db.Errors
      MsgBox e.Description
 
  Next e
 
End If

db.Errors.Clear

End Sub

co jest zle???
z gory dzieki


_____________________________________________
May the Force be with you...

21-12-2003 10:51
Pokaż profil Dagged  Wyślij email do Dagged        1728948
JoFerrari




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

Global rekordy_prac, rekordy_klienci, rekordy_pokoj, rekordy_wynaj As ADODB.Recordset

Tak nie mozna deklarowac! przed kazdym przecinkiem napisz co to ma byc. Global rekordy_prac as cos,rek as cos itd


Ja to rtobie tak


  Public Connect2 As ADODB.Connection
  Public Rst As ADODB.Recordset


  Set Connect2 = New ADODB.Connection
  Set Rst = New ADODB.Recordset

  Connect.ConnectionString = "cos tam"
  Connect.Open
 
  ''i teraz dopiero
  rst.open "Select * from 
        tabela",connect,kursor,blokada,adcmdtxt

  '''jak chciales widziec rekordy skoro ich nie
    wybierales z bazy danych.

22-12-2003 14:20
Pokaż profil JoFerrari  Wyślij email do JoFerrari   
Dagged
Dagged




Typ: neutral
Postów: 49
Zarejestrowany: Dec 2003
oki dzieki!!!

Dzieki bardzo


_____________________________________________
May the Force be with you...

22-12-2003 17:59
Pokaż profil Dagged  Wyślij email do Dagged        1728948
Wszystkich odpowiedzi: 2 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1