BD-TEXT1.TEXT

USUARIO.EXCLUIDOS 22/03/2005 15:56:32
#74337
quero colocar um valor do BD para um text1.text.
Mas esta dando erro.

coloco assim:
Conect.Execute ("Insert Into tabx(x1)Values(" & Text1 & ")")
CLAUDIOLUCROCHA 22/03/2005 16:15:14
#74339
Voce nao pode user o insert para pegar um campo tem que usar o select.
Assim

Dim rst as recordset

Set rst = cnn.OpenRecordset("SELECT * from cliente where cod = 1", _
dbOpenSnapshot)

text1.text = rst.fileds![cod]
ou
text1.text = rst.fileds(1)
ou
text1.text = rst.fileds("cod")

Ajudou ???
CLAUDIOLUCROCHA 22/03/2005 16:19:17
#74342
Ops foi mau pensei errado tente assim

O nome do campo é X1 tente coloca campos que explique o seu conteudo (cod_cliente, nome e etc)

se o campo for alfanumerico (letras) vai ter que estar entre aspas simples

Conect.Execute ("Insert Into tabx(x1)Values(' " & Text1 & " ' )")

Se x1 for numero o text1 tem que ter um numero nao pode ter branco ou null.

Ajudou ???
USUARIO.EXCLUIDOS 22/03/2005 16:24:22
#74343
Olha só--- o x1 é num... como ficaria??
CLAUDIOLUCROCHA 22/03/2005 16:31:34
#74345
Ops foi mau pensei errado tente assim

O nome do campo é X1 tente coloca campos que explique o seu conteudo (cod_cliente, nome e etc)

se o campo for alfanumerico (letras) vai ter que estar entre aspas simples

Conect.Execute ("Insert Into tabx(x1)Values(' " & Text1 & " ' )")

Se x1 for numero o text1 tem que ter um numero nao pode ter branco ou null.

Ajudou ???
USUARIO.EXCLUIDOS 22/03/2005 16:58:03
#74354
Olha só--- o x1 é num... como ficaria??
CLEVERTON 22/03/2005 18:40:44
#74373
"Insert Into Tabela Values ('" & txtnome & "'," & val(txtcodigo) & ")"
USUARIO.EXCLUIDOS 22/03/2005 18:52:57
#74377
Se for número tire os " ' ", faça assim:

SQL = "Insert Into tabx(x1)Values("
SQL = SQL & " & Text1 & ")" 
Conect.Execute (SQL)
TONARE25 22/03/2005 19:43:21
#74383
Cuidado que se o Text1 for long vc tem que usar o comando Str() para transformar em texto ara nao dar erro na string
Tópico encerrado , respostas não são mais permitidas
Voltar