COMO EDITAR REGISTRO USANDO FIREBIRD E ZSTYLEIBOLE
não estou conseguindo editar os registros no firebird usando ZSTYLE IBOLE, simplesmente não edita
Global Soft As ADODB.Connection
Global rs As ADODB.Recordset
Sub Conect()
Set Soft = New ADODB.Connection
With Soft
.Provider = "ZStyle IBOLE Provider" '"IBOLE.Provider.v4"
.Properties("Data Source") = App.Path + "\Banco.fdb"
.Properties("User ID") = "SYSDBA"
.Properties("Password") = "masterkey"
.Properties("SQL Dialect") = "3"
.Properties("Logging Level") = "0"
.Properties("Silent mode") = "True"
.Properties("Character Set") = "NONE"
.Open
End With
End Sub
tem alguma coisa errada na conexão
Global Soft As ADODB.Connection
Global rs As ADODB.Recordset
Sub Conect()
Set Soft = New ADODB.Connection
With Soft
.Provider = "ZStyle IBOLE Provider" '"IBOLE.Provider.v4"
.Properties("Data Source") = App.Path + "\Banco.fdb"
.Properties("User ID") = "SYSDBA"
.Properties("Password") = "masterkey"
.Properties("SQL Dialect") = "3"
.Properties("Logging Level") = "0"
.Properties("Silent mode") = "True"
.Properties("Character Set") = "NONE"
.Open
End With
End Sub
tem alguma coisa errada na conexão
Na conexão não tem nada de errado. Eu costumo usar a IBOLEDB.DLL e nunca tive problemas.
Sete sempre seus recordsets com CURSORLOCATION = ADUSECLIENT, abra-os com ADOPENKEYSET, ADLOCKOPTIMISTIC, e não terá problemas.
Eu recomendo a IBOLEDB.DLL se estiver afim de testá-la...
Declare:
Sete sempre seus recordsets com CURSORLOCATION = ADUSECLIENT, abra-os com ADOPENKEYSET, ADLOCKOPTIMISTIC, e não terá problemas.
Eu recomendo a IBOLEDB.DLL se estiver afim de testá-la...
Declare:
Global Soft As New ADODB.Connection
Global rs As New ADODB.Recordset
Tópico encerrado , respostas não são mais permitidas