Quantcast
Channel: Dados Base To Base
Viewing all articles
Browse latest Browse all 16

Dados Base To Base

0
0

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.FirebirdClient

PublicClass 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 As
Integer
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 DataSet

 PrivateSub 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


Viewing all articles
Browse latest Browse all 16

Latest Images

Trending Articles





Latest Images