Pessoal,
Continuo na missão "Trasnferir dados de uma base a outra", ambas FIREBIRD, local, campos idênticos.
Uso o VS2005, FB1.5
Segue abaixo o bendito código, quando tento copiar os dados(btnTOon) o VB me pede prá instaciar o objeto DATAROW. ( dsNovaLinha = dsON.Tables("Clientes").NewRow() )
Desde já muito grato pela atenção dos amigos.
Imports
FirebirdSql.Data.FirebirdClientPublicClass Form1
'Base Agenda
Dim ConnH AsNew FbConnection _
("User=sysdba;Password=masterkey;Database=C:\BASE\AGENDA.fdb;DataSource=localhost;Port=3050;Dialect=3;Charset=NONE;Role=;Connection lifetime=0;Connection timeout=15;Pooling=True;Packet Size=8192;Server Type=0")Dim daH As FbDataAdapter
Dim dsH AsNew DataSet
Dim i AsInteger
Dim RegH AsInteger'Base Projeto ONLINE
Dim ConnON AsNew FbConnection _
("User=sysdba;Password=masterkey;Database=C:\BASE\ONLINE.fdb;DataSource=localhost;Port=3050;Dialect=3;Charset=NONE;Role=;Connection lifetime=0;Connection timeout=15;Pooling=True;Packet Size=8192;Server Type=0")Dim daON As FbDataAdapter
Dim dsON AsNew DataSetPrivateSub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCarregaH.Click
ConnH.Open()
dsH.Clear()
daH = New FbDataAdapter("Select * From CLIENTES", ConnH)Try
daH.Fill(dsH, "Clientes")
dgvH.DataSource = dsH.Tables(0)Catch ex As Exception
MessageBox.Show(ex.Message())
Finally
ConnH.Close()
EndTry
EndSub
PrivateSub btnON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnON.Click
ConnON.Open()
dsON.Clear()daON = New FbDataAdapter("Select * From CLIENTES", ConnON)
Try
daON.Fill(dsON, "Clientes")
dgvON.DataSource = dsON.Tables(0)Catch ex As Exception
MessageBox.Show(ex.Message())
Finally
ConnON.Close()
EndTry
EndSub
PrivateSub btnToON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnToON.Click
Dim cb AsNew FbCommandBuilder(daON)
For i = 0 To RegH
Try
Dim dsNovaLinha As DataRow
dsNovaLinha = dsON.Tables("Clientes").NewRow()dsNovaLinha.Item("Codigo") = dsH.Tables("Clientes").Rows(i).Item("Codigo")
dsNovaLinha.Item("Nome") = dsH.Tables("Clientes").Rows(i).Item("Nome")
dsNovaLinha.Item("Endereco") = dsH.Tables("Clientes").Rows(i).Item("Endereco")
dsNovaLinha.Item("Telefone") = dsH.Tables("Clientes").Rows(i).Item("Telefone")
dsNovaLinha.Item("Email") = dsH.Tables("Clientes").Rows(i).Item("Email")dsON.Tables("Clientes").Rows.Add(dsNovaLinha)
daON.Update(dsON, "Clientes")Catch ex As Exception
MessageBox.Show(ex.Message)
EndTry
Next
EndSub
EndClass