Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 28/03/2006 13:55 hs
Existe algum comando SQL para gravar dados de um banco de dados para outro? Tenho um banco de nome LTD e outro que criei com nome de DADOS. Carregos os campos do BD LTD com a rotina abaixo:
Private Sub CommandButton1_Click()
Dim Sql As String
Dim Sql_1 As String
Dim Criterio As String
Criterio = CStr(TxtBusca.Text)
Sql = "SELECT [Nº LTD],Desenho,Pos,Quant,[Montado Com],[Descrição],[Descrição1] FROM ITEM WHERE [Nº LTD] Like '%" & Criterio & "%'"
Set TbLtd = BdCadastro.Execute(Sql)
If TbLtd.RecordCount = 0 Then
limpa
Else
If Not TbLtd.EOF Then
Lb_Ltd.Caption = TbLtd![Nº LTD]
TxtDes.Text = TbLtd!Desenho
TxtPos.Text = TbLtd!Pos
TxtQT.Text = TbLtd!Quant
TxtOF.Text = TbLtd![Montado Com]
TxtDesc.Text = TbLtd![Descrição] + TbLtd![Descrição1]
Sql_1 = "SELECT [Rev Desenho],Elaborado,Data,Obs,Contrato,[Nº LTD],Desenho,Rev FROM LTD WHERE [Nº LTD] Like '%" & Criterio & "%'"
Set TbCab = BdCadastro.Execute(Sql_1)
If Not TbCab.EOF Then
Lb_Por.Caption = TbCab!Elaborado
Lb_Data.Caption = TbCab!Data
Lb_Contrato.Caption = TbCab!Contrato
Lb_Des.Caption = TbCab!Desenho
Lb_Rev.Caption = TbCab![Rev Desenho]
Lb_Obs.Caption = TbCab!Obs
Lb_Rev1.Caption = TbCab!Rev
End If
End If
End If
End Sub
O que preciso é gravar esses dados no novo Banco Dados, as tabelas e campos do novo banco são iguais a do primeiro. Isso é possivel? |
|
|
|
|
|
|
|
Postada em 28/03/2006 15:52 hs
Tabela1.MoveMin Do While Not Tabela1.EOF If Tabela1!CAMPO = variavel Then Tabela2.AddNew Tabela2!CAMPO1 = Tabela1!CAMPO1 Tabela2!CAMPO2 = Tabela1!CAMPO2 Tabela2.Update End If Tabela1.MoveNext Loop vlu// |
|
|
|
Irenko
|
BELO HORIZONTE
MG - BRASIL
|
|
Postada em 03/04/2006 18:54 hs
Pessoal preciso de ajuda para montar isso, não estou conseguindo! Tentei assim, mas não grava absolutamente nada! Veja como fiz abaixo:
No módulo:
Option Explicit
Public BdCadastro As ADODB.Connection
Public TbCadastro As ADODB.Recordset
Public TbLtd As ADODB.Recordset
Public TbCab As ADODB.Recordset
Public BDNome As String
Public BdLM As ADODB.Connection
Public TbLM As ADODB.Recordset
Public BDNome1 As String
Public Criterio As String
Public Sub Conectar()
If Right(ThisWorkbook.Path, 1) = "" Then
BDNome = ThisWorkbook.Path & "LTD_DADOS.mdb"
BDNome1 = ThisWorkbook.Path & "ListaLM.mdb"
Else
BDNome = ThisWorkbook.Path & "" & "LTD_DADOS.mdb"
BDNome1 = ThisWorkbook.Path & "" & "ListaLM.mdb"
End If
Set BdCadastro = New ADODB.Connection
Set BdLM = New ADODB.Connection
BdCadastro.CursorLocation = adUseClient
BdCadastro.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & BDNome & ";"
BdLM.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source=" & BDNome1 & ";"
End Sub
Public Sub GravaBanco()
Dim Sql As String
Dim Sql_1 As String
Dim Criterio As String
Criterio = CStr(FrmBusca.TxtBusca.Text)
Sql = "SELECT [Nº LTD],Desenho,Pos,Quant,[Montado Com],[Descrição],[Descrição1] FROM ITEM WHERE [Nº LTD] Like '%" & Criterio & "%'order by [Nº LTD]"
Set TbLtd = BdCadastro.Execute(Sql)
If TbLtd.RecordCount = 0 Then
limpa
Else
Do While Not TbLtd.EOF
If TbLtd![Nº LTD] = Criterio Then
TbLM.AddNew
TbLM!LTD = TbLtd![Nº LTD]
TbLM!Desenho = TbLtd!Desebho
TbLM!Psicao = TbLtd!Pos
TbLM!Quant = TbLtd!Quant
TbLM!OF = Nnull(TbLtd![Montado Com])
TbLM!Descricao = Nnull(TbLtd![Descrição]) + Nnull(TbLtd![Descrição1])
TbLM.Update
End If
TbLtd.MoveNext
Loop
End Sub
No Form:
Private Sub Form_Load()
AbreBanco
End Sub
Sub AbreBanco()
'Set BdCadastro = OpenDatabase(ThisWorkbook.Path & "LTD_DADOS.mdb")
Conectar
Set TbLtd = New ADODB.Recordset
Set TbCab = New ADODB.Recordset
Set TbLM = New ADODB.Recordset
TbLtd.Open "SELECT * FROM ITEM", BdCadastro, adOpenDynamic, adLockOptimistic
TbCab.Open "SELECT * FROM LTD", BdCadastro, adOpenDynamic, adLockOptimistic
'TbLM.Open "SELECT * FROM Dados", BdCadastro, adOpenDynamic, adLockOptimistic
TxtBusca.SetFocus
End Sub
Private Sub CommandButton6_Click()
Call GravaBanco
End Sub
Explicando: estou tentando gravar dados da tabela de um banco para outra nesse comando. |
|
|
|
|
