EDIT EM MYSQL
Olá amigos !
Estou me conectando em um banco de dados MySQL para inserir dados conforme rotina abaixo
Set RS_yibproduct_description = New ADODB.Recordset
vFilSQL = [Ô]SELECT product_id, language_id, name, description, meta_description, meta_keyword From yibproduct_description[Ô]
RS_yibproduct_description.Open vFilSQL, DBCon, adOpenStatic, adLockOptimistic, adCmdText
Do While Not TabPRO.EOF
With RS_yibproduct_description
.AddNew
[ô]End If
.Fields([Ô]language_id[Ô]) = [Ô]2[Ô]
.Fields([Ô]name[Ô]) = TabPRO!PROSIT
.Fields([Ô]description[Ô]) = TabPRO!PROSIT
.Fields([Ô]meta_description[Ô]) = TabPRO!PROSIT
.Fields([Ô]meta_keyword[Ô]) = TabPRO!PROSIT
.Update
End With
Loop
Dúvida:
Nesse caso estou inserindo pelo comando addnew, qual comando que uso para alterar as informações caso encontre. Nota: Essa tabela tem a chave de Ãndice product_ID auto incremento. Quando insiro pego esse número e já gravo também na minha tabela de produtos.
Estou me conectando em um banco de dados MySQL para inserir dados conforme rotina abaixo
Set RS_yibproduct_description = New ADODB.Recordset
vFilSQL = [Ô]SELECT product_id, language_id, name, description, meta_description, meta_keyword From yibproduct_description[Ô]
RS_yibproduct_description.Open vFilSQL, DBCon, adOpenStatic, adLockOptimistic, adCmdText
Do While Not TabPRO.EOF
With RS_yibproduct_description
.AddNew
[ô]End If
.Fields([Ô]language_id[Ô]) = [Ô]2[Ô]
.Fields([Ô]name[Ô]) = TabPRO!PROSIT
.Fields([Ô]description[Ô]) = TabPRO!PROSIT
.Fields([Ô]meta_description[Ô]) = TabPRO!PROSIT
.Fields([Ô]meta_keyword[Ô]) = TabPRO!PROSIT
.Update
End With
Loop
Dúvida:
Nesse caso estou inserindo pelo comando addnew, qual comando que uso para alterar as informações caso encontre. Nota: Essa tabela tem a chave de Ãndice product_ID auto incremento. Quando insiro pego esse número e já gravo também na minha tabela de produtos.
HUBER FABIO
Para vc fazer a alteração vc usa o mesmo comando de incluir com dois detalhes
Primeiro vc não usa o addnew
Segundo vc faz a busca do registro no banco(comando abaixo buscando o registro 1 para a alteração), para o sistema saber qual registro se alterado
vFilSQL = [Ô]SELECT product_id, language_id, name, description, meta_description, meta_keyword
From yibproduct_description
where product_id = 1[Ô]
Para vc pegar o número automático gerado use assim
Dim Rs2 As New ADODB.Recordset
Rs2.Open [Ô]select last_insert_id()[Ô], Db
txtCodigo.Text = Rs2.Fields(0)
Para vc fazer a alteração vc usa o mesmo comando de incluir com dois detalhes
Primeiro vc não usa o addnew
Segundo vc faz a busca do registro no banco(comando abaixo buscando o registro 1 para a alteração), para o sistema saber qual registro se alterado
vFilSQL = [Ô]SELECT product_id, language_id, name, description, meta_description, meta_keyword
From yibproduct_description
where product_id = 1[Ô]
Para vc pegar o número automático gerado use assim
Dim Rs2 As New ADODB.Recordset
Rs2.Open [Ô]select last_insert_id()[Ô], Db
txtCodigo.Text = Rs2.Fields(0)
Tópico encerrado , respostas não são mais permitidas