form - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: form

Fidelis
não registrado

ENUNCIADA !

Postada em 10/03/2009 16:58 hs

to tentando enviar uns dados para o meu banco access, no do banco laudo

codigo do botão salvar

Private Sub Command1_Click()
' gravar os registros digitados no banco de dados
Set Rs20 = Bd.OpenRecordset("laudo")
Rs20.AddNew

Rs20("n_laudo") = n_laudo.Text
Rs20("n_data") = n_data.Text
Rs20("n_equipamento") = n_equipamento.Text
Rs20("n_tipo") = n_tipo.Text
Rs20("n_defeito") = n_defeito.Text
Rs20("n_filial") = n_filial.Text
Rs20("n_pat") = n_pat.Text
Rs20("n_obs") = n_obs.Text

Rs20.Update
Rs20.Close

Sfradi

GUARULHOS
SP - BRASIL

Postada em 12/03/2009 23:09 hs

Vc nao esta esquecendo de mencionar que os dados irao para um campo Rs20.Fields("CAMPO") = TEXT1.TEXT

e se tiver sobrnado um tempinho , registre-se...nao custa nada...

Até....

TÓPICO EDITADO

Álvaro

GUARULHOS
SP - BRASIL

ENUNCIADA !

Postada em 14/03/2009 11:36 hs

Fidelis no seu código está faltando uma coisa, ou você usa a dica do nosso amigo Sfradi ou você altera esse código colocando uma exclamação antes do nome do campo
Rs20!n_pat = n_pat.Text
Rs20!n_obs = n_obs.Text
A assim por diante

Abraço e que DEUS te abençõe, espero poder ter te ajudado

Eu sou o Senhor, o DEUS de vocês;
eu os seguro pela mão e lhes digo;
Não fiquem com medo, pois eu os ajudo
Isaias 41:13

TÓPICO EDITADO

Nilton Vianna

AMPARO
SP - BRASIL

Postada em 14/03/2009 12:06 hs

Seria melhor assim:

Fidelis RS!"Obs" = txtnObs.Text

Treze

SÃO VICENTE
SP - BRASIL

Postada em 14/03/2009 12:15 hs

acredito que o problema esteja na conexão, vejacomo faço:

Dim DB As Database
'
Dim Rs20 As Recordset

Set DB = Workspaces(0).OpenDatabase(App.Path & "\seubanco.mdb")
Set Rs20 = DB.OpenRecordset("laudo", dbOpenDynaset)
Rs20.AddNew

Rs20("n_laudo") = n_laudo.Text
Rs20("n_data") = n_data.Text
Rs20("n_equipamento") = n_equipamento.Text
Rs20("n_tipo") = n_tipo.Text
Rs20("n_defeito") = n_defeito.Text
Rs20("n_filial") = n_filial.Text
Rs20("n_pat") = n_pat.Text
Rs20("n_obs") = n_obs.Text

Rs20.Update

você poderá fazer

Rs20("n_obs") = n_obs.Text

Rs20.Field("n_obs") = n_obs.Text

Rs20!n_obs = n_obs.Text

ambas maneiras descritas acima terão o mesmo efeito, não acredito que o problema esteja ai.

Veja a referência que está fazendo em Project / References

Ex:

Microsoft DAO 2.5 / 3.51 Objetct library -> para versões access 97 e anteriores

Microsoft DAO 3.6 Object Library -> para versões mais atuais

derrepente é este o problema

ah tenha certeza que laudo é o nome da tabela

TÓPICO EDITADO

Página(s): 1/1

Seu Nome:
Seu eMail:		ALTERAR PARA MODO HTML
Mensagem: [:)] = [:P] = [:(] = [;)] = HTML DESLIGADO

VOLTAR