INSERT INTO MYSQL VB6

JLSMA 16/06/2010 13:40:21
#344997
Boa Tarde Pessoal, gostaria de verificar como usar o insert into no vb6

Para atualizar os resgistros estou usando desta forma

Sql = [Ô]UPDATE culturas SET [Ô]
Sql = Sql & [Ô]CULTURA = [ô][Ô] & UCase(TiraAcentos(txtcultura.Text)) & [Ô][ô],[Ô]
Sql = Sql & [Ô]obs = [ô][Ô] & UCase(TiraAcentos(txtObs.Text)) & [Ô][ô][Ô]
Sql = Sql & [Ô]where cod = [ô][Ô] & Flex.TextMatrix(Flex.Row, 0) & [Ô][ô][Ô]
MyDB.Execute Sql

como passar esta instrução para o insert into
ALVAROVB2009 16/06/2010 13:42:58
#344999 Resposta escolhida
JLSMA faz apenas o ajuste para seu caso
StrSql = [Ô]Insert into tbempresas (DescAtividade,DescRegiao,Cnpj_Cpf,RazaoSocial,NomeFantasia,Endereco,Bairro,Cidade,Estado,Cep,DDDTelefone, Telefone, DDDFax, Fax, Contato, Email, Observacao)[Ô]
StrSql = StrSql & [Ô] values ([ô][Ô] & CmbAtividade.Text & [Ô][ô],[ô][Ô] & CmbRegiao.Text & [Ô][ô],[ô][Ô] & Replace(Replace(Replace(txtCNPJ_CPF.Text, [Ô].[Ô], [Ô][Ô]), [Ô]/[Ô], [Ô][Ô]), [Ô]-[Ô], [Ô][Ô]) & [Ô][ô],[ô][Ô] & txtNome.Text & [Ô][ô],[ô][Ô] & txtNomeFantasia.Text & [Ô][ô],[ô][Ô] & txtEndereco.Text & [Ô][ô],[ô][Ô] & TxtBairro.Text & [Ô][ô],[ô][Ô] & txtcidade.Text & [Ô][ô],[ô][Ô] & CboEstado.Text & [Ô][ô],[Ô]
StrSql = StrSql & [Ô][ô][Ô] & TxtCep.Text & [Ô][ô],[ô][Ô] & TxtDDDTelefone.Text & [Ô][ô],[ô][Ô] & TxtTelefone.Text & [Ô][ô],[ô][Ô] & txtDDDFax.Text & [Ô][ô],[ô][Ô] & txtFax.Text & [Ô][ô],[ô][Ô] & TxtNomeContato.Text & [Ô][ô],[ô][Ô] & txtEmail.Text & [Ô][ô],[ô][Ô] & txtObs.Text & [Ô][ô])[Ô]

Db.Execute StrSql
JPAULO101 16/06/2010 14:19:21
#345007
Olá amigo JLSMA, eu uso desta forma.

Private Sub cmdGravar_Click()

Dim sSQL As String
On Error GoTo erro

If Trim(atxtSml) = [Ô][Ô] Or Trim(atxtEscritorio) = [Ô][Ô] Then
MsgBox [Ô]Preencha os campos para inclusão do equipamento.[Ô], vbExclamation, [Ô]Campo vazio[Ô]
atxtSml.SetFocus
Exit Sub
End If

con.BeginTrans
sSQL = [Ô]INSERT INTO TBLCADFUN ([Ô]
sSQL = sSQL & [Ô]CODIGO,[Ô]
sSQL = sSQL & [Ô]NOME,[Ô]
sSQL = sSQL & [Ô]MATRICULA,[Ô]
sSQL = sSQL & [Ô]CONTRATO,[Ô]
sSQL = sSQL & [Ô]PAI,[Ô]
sSQL = sSQL & [Ô]MÃE,[Ô]
sSQL = sSQL & [Ô]MANUTENCAO,[Ô]
sSQL = sSQL & [Ô]REPARO) VALUES ([Ô]
sSQL = sSQL & [Ô][Ô] & txtCodigo.Text & [Ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtNome.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtMatricula.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtContrato.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtPai.Text & [Ô][ô],[Ô]
sSQL = sSQL & [Ô][ô][Ô] & txtMão.Text & [Ô][ô],[Ô]
sSQL = sSQL & IIf(txtManut.Text = [Ô][Ô], [Ô]Null,[Ô], [Ô]#[Ô] & Format(txtManut.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#,[Ô])
sSQL = sSQL & IIf(txtReparo.Text = [Ô][Ô], [Ô]Null)[Ô], [Ô]#[Ô] & Format(txtReparo.Text, [Ô]mm/dd/yyyy[Ô]) & [Ô]#)[Ô])


con.Execute sSQL
con.CommitTrans

MsgBox [Ô]Registro incluso com sucesso![Ô], vbInformation, [Ô]Cadastro de Funcionário[Ô]
cmdNovo.Enabled = True
cmdGravar.Enabled = False
cmdExcluir.Enabled = True
cmdEditar.Enabled = True
Habilita_Caixas

Exit Sub
erro:
con.RollbackTrans
MsgBox [Ô]Ocorreu um erro ao gravar o cadastro[Ô] & vbCrLf & Err.Description, vbExclamation, [Ô]Erro[Ô]

End Sub
TECLA 16/06/2010 15:11:45
#345013 

Sql = [Ô]INSERT INTO Culturas (cultura, obs) [Ô] & _
	  [Ô]VALUES ([ô][Ô] & UCase(TiraAcentos(txtcultura.Text)) & [Ô][ô], [Ô] & _
			  [Ô][ô][Ô] & UCase(TiraAcentos(txtObs.Text)) & [Ô][ô])[Ô]
Tópico encerrado , respostas não são mais permitidas
Voltar