ALTERA NO FIREBIRD

HUELBERT 03/06/2005 13:57:44
#86836
e ai galera...blz, o problema e esse: ( não consigo altera dados no meu banco de dados firebird)
vamos ao codigo
Sub Altera()
C = 0
Set rs = New ADODB.Recordset
rs.LockType = adLockOptimistic
rs.Open "Select * from cliente", Soft, adOpenDynamic
Dim Ctl As Control
For Each Ctl In Me.Controls
If TypeOf Ctl Is TextBox Then
If Ctl.Visible = True Then
If Ctl.Text = "" Then
C = C + 1
End If
End If
End If
Next
If C = 0 Then
rs!codigo = codigo.Text
If X = 1 Then rs!nome = nome.Text + " - " + codigo.Text Else rs!nome = Combo.Text
rs!endereco = endereco.Text
rs!bairro = bairro.Text
rs!cidade = cidade.Text
rs!estado = estado.Text
Else
MsgBox "Existem Campo(s) em Branco", 48, "MED Informática": Exit Sub
End If
rs.Update
MsgBox "Cliente salvo com Sucesso", 48, "MED Informática"
Limpar
End Sub

Tá ai galera que poder me ajudar eu fico grato
TRUHILLO 03/06/2005 14:32:19
#86847
qual a string de conexão?
Vc tah usando DLL ou ODBC?
HUELBERT 03/06/2005 14:38:34
#86849
ibole.dll e a dll de conecção que estoun usando
USUARIO.EXCLUIDOS 03/06/2005 14:39:28
#86850 Resposta escolhida
Troca

Set rs = New ADODB.Recordset 
rs.LockType = adLockOptimistic 
rs.Open "Select * from cliente", Soft, adOpenDynamic


Por

Set rs = New ADODB.Recordset 
rs.CursorLocation = adUseClient
rs.Open "Select * from cliente", Soft, adOpenKeyset, adLockOptimistic
Tópico encerrado , respostas não são mais permitidas
Voltar