GRAVAR
Ola....
Galera estou com esse código e não esta gravando, o que está de errado.
Dim Sql As String
Dim RS As New ADODB.Recordset
Dim Con As New ADODB.Connection
Private Sub Command1_Click()
RS.AddNew
RS!NOME = Text1.Text
RS!CONTATO = Text2.Text
RS.Update
MSHFlexGrid1.Refresh
RS.Close
Con.Close
End Sub
Private Sub Form_Load()
Set RS = New ADODB.Recordset
Con.Open [Ô]Provider=SIBPROVIDER; Data Source=127.0.0.1:[Ô] & App.Path & [Ô]\DADOS.GDB; User Id=SYSDBA; Password=masterkey;[Ô]
Sql = [Ô]Select * From cliente[Ô]
Set RS = Con.Execute(Sql)
Set MSHFlexGrid1.DataSource = RS
End Sub
Obrigado
Galera estou com esse código e não esta gravando, o que está de errado.
Dim Sql As String
Dim RS As New ADODB.Recordset
Dim Con As New ADODB.Connection
Private Sub Command1_Click()
RS.AddNew
RS!NOME = Text1.Text
RS!CONTATO = Text2.Text
RS.Update
MSHFlexGrid1.Refresh
RS.Close
Con.Close
End Sub
Private Sub Form_Load()
Set RS = New ADODB.Recordset
Con.Open [Ô]Provider=SIBPROVIDER; Data Source=127.0.0.1:[Ô] & App.Path & [Ô]\DADOS.GDB; User Id=SYSDBA; Password=masterkey;[Ô]
Sql = [Ô]Select * From cliente[Ô]
Set RS = Con.Execute(Sql)
Set MSHFlexGrid1.DataSource = RS
End Sub
Obrigado
[txt-size=2]Qual o erro?[/txt-size]
Use
RS.UpdateBatch
Não deu certo....
Em vez de
Use
Set RS = Con.Execute(Sql)
Use
Rs.Open sSql,Con,adOpenKeyset,adLockBatchOptimistic
continua não gravando .....
Poste aqui o seu projeto...
upado
Dá uma olhada ae.
apresenta algum erro, se sim em qual linha
ele so nao grava o banco de dados firebird
Tópico encerrado , respostas não são mais permitidas