[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