[firebase-br] FireBird com ADO sem compontes

mamsistemas em uol.com.br mamsistemas em uol.com.br
Qui Jun 26 19:53:28 -03 2008


Olá , estou iniciando do FireBird e usando o BDS 2006 .
Trabalhava antes com o VB,  fazia assim:

Private  cnn As New ADODB.Connection, rsconexao As ADODB.Recordset
 cnn.Provider = "Microsoft.Jet.OLEDB.4.0"
 cnn.ConnectionString = "\STKS\STKS.FDB"
cnn.Open (cnn.ConnectionString)
 If cnn.State <> 1 Then
      MsgBox "Não foi possível estabelecer comunicação e abrir banco de dado 
STKS.MDB"
 End If
 Set rsconexao = New ADODB.Recordset
 With rsconexao
     .CursorLocation = adUseClient
     .LockType = adLockPessimistic
     .CursorType = adOpenDynamic
     Sc = "Select * From PARAMETRO Where PARCHAVE = " & " """ & StrChave & 
""""
     .Source = Sc
     .ActiveConnection = cnn
     .Open
  End With
  rsconexao.ActiveConnection = Nothing

Sem necessidade de utlizar os componentes  DATASET , DATASOURCE e companhia.
Nao estou conseguindo achar nada semelhante no Delphi.

Alguem pode me ajudar.

Marlene Abi-Ali





Mais detalhes sobre a lista de discussão lista