INSERIR DADOS NO VB

USUARIO.EXCLUIDOS 10/12/2006 21:08:50
#189158
Galera como posso definir a sintaxe abaixo:

No sqlserver eu faço o seguinte para inserção de dados

insert into <nome da tabela>
values
(001,"Maria","43545648754")

O que eu devo mudar no vb para inserir dados em uma tabela. Existe um sql (sintexe) para simplificar esse processo?. Lembrando que nesse projeto estou utilizando banco de dados access (ADOBD).

Agradeço pela atenção!!
ESLEYSANCHES 10/12/2006 21:10:26
#189159 Resposta escolhida
Se diz ooque a sintaxe ?

Se for, não pode usar a mesma: INSERT INTO <tabela> VALUES (001, 'Maria', '1234567890')

Abraços !!
ESLEYSANCHES 10/12/2006 21:14:57
#189160
Se for como inserir dados via ADO use assim:

Dim SQL, CONEXAO, RS

Set CONEXAO = createobject("ADODB.Connection")
Set RS = createobject("ADODB.Recordset")
SQL = "INSERT INTO <tabela> VALUES (001, 'Maria', '1234567890')"

CONEXAO.open "Driver={Microsoft Access Driver (*.mdb)};Dbq=SUA_BASE_DE_DADOS;Uid=Admin;Pwd=SENHA_SE_EXISTIR;"

'Inserir dados
CONEXAO.Execute SQL
CONEXAO.close
msgbox("Dados inseridos com sucesso !!"),vbinformation

'ou

RS.Open SQL, CONEXAO
RS.close
CONEXAO.close
msgbox("Dados inseridos com sucesso !!"),vbinformation



Espero que te ajude !!
Abraços !!
USUARIO.EXCLUIDOS 10/12/2006 21:17:21
#189161
Utilizando a sintaxe acima, o VB retonra o seguinte erro "Expected: end of statement"

Quero ressaltar que não estou utilizando o sqlserver, mas sim digitando o programa no proprio vc, e utilizando banco de dado access.

Valeu!!
ESLEYSANCHES 10/12/2006 21:20:46
#189162
Mais você alterou o endereço da tabela, senha usuário, dados e etc ?
ESLEYSANCHES 10/12/2006 21:29:03
#189163
Para te ajudar, olhe o anexo e veja se é isso mesmo que você deseja amigão !!

Abraços !!
USUARIO.EXCLUIDOS 10/12/2006 21:36:06
#189165
Bacana, cxonsegui!!

Para concluir como devo fazer para gravar dados do form.

Exemplo para adequar a minha necessidade fiz o seguinte:

CONSULTASQL = "INSERT INTO tabvendas VALUES (001, 'Maria', '1234567890')"
Set TBSQL = CON.Execute(CONSULTASQL)
CON.Close

No entanto, na sintexe acima estou gravamndo no banco texts já denido, como faço para gravat por exemplo informações de dois textbox (txtcliente e txtlocacao)

Como ficaria a suntexe acimas??

Abraço!
ESLEYSANCHES 10/12/2006 21:37:47
#189166
use assim:

CONSULTASQL = "INSERT INTO tabvendas VALUES (001, '" & text1.tex & "', '" & text2.text & "')"
Set TBSQL = CON.Execute(CONSULTASQL)

Estão como text1 e text2, se mudou o nome altere também os nomes no código !!

AMigo, não esqueça de encerrar o tópico !!
Abraços !!
ESLEYSANCHES 10/12/2006 21:39:52
#189167
Outra coisa amigão, procure também dar uma lida no link abaixo:

http://www.vbmania.com.br/vbmania/vbmdetail.php?varID=2096&TxtSearch=ado&CmbSort=&varPagina=1

Espero que te ajude !!
Abraços !!
Tópico encerrado , respostas não são mais permitidas
Voltar