MSFLEXGRID - DATA CONTROL

USUARIO.EXCLUIDOS 29/12/2004 23:19:35
#57722
Olá a todos,

Estou programando usando Data Control, pelo metodo DAO consigo salvar o conteúdo do MsFlexGrid normalmente no banco de dados, porém usando o Data Control não vai. Aparece a mensagem de run time error 3426 this action was cancelled by an association object e esta linha fica marcada em amarelo: Form3.Data1.Recordset.AddNew

Eis o código do botão salvar:

Dim i As Integer
Me.data.Caption = Format(Date, "dd/mm/yyyy")
If cliente.Text = "" Then
MsgBox "Existe um ou mais campos que devem ser preenchidos", vbCritical, "Aviso"

Else
' AFolha.BeginTrans
For i = 1 To lista.Rows - 1
Form3.Data1.Recordset.AddNew
If Len(codigo.Caption) <> 0 Then Form3.Data1.Recordset.Fields(0) = (codigo.Caption)
If Len(data.Caption) <> 0 Then Form3.Data1.Recordset.Fields(1) = (data.Caption)
If Len(cliente.Text) <> 0 Then Form3.Data1.Recordset.Fields(2) = UCase(cliente.Text)
If Len(obs.Text) <> 0 Then Form3.Data1.Recordset.Fields(8) = (obs.Text)

Form3.Data1.Recordset.Fields(3) = lista.TextMatrix(i, 0)
Form3.Data1.Recordset.Fields(4) = lista.TextMatrix(i, 1)
Form3.Data1.Recordset.Fields(5) = lista.TextMatrix(i, 2)
Form3.Data1.Recordset.Fields(6) = lista.TextMatrix(i, 3)
Form3.Data1.Recordset.Fields(7) = lista.TextMatrix(i, 4)
Form3.Data1.Recordset.Update
Next i

' AFolha.CommitTrans

' ExibirDados
Unload Me


Form3.cliente.Text = Empty
' Set TbCompras = TbCompras.OpenRecordset()
End If

Grato por esta ajuda
USUARIO.EXCLUIDOS 30/12/2004 11:52:02
#57787 Resposta escolhida
ITALO, pode ser o seguinte:
1) a propriedade DataSource do Grid não pode ter nada
2)verifique as propriedades do data (Conect,Databasename, recordsource)

Se não der certo mostre como vc conecta o data no BD.
Tópico encerrado , respostas não são mais permitidas
Voltar