GRAVAR DADOS NO ACCES COM VB 6.0

ADILSON16 18/06/2010 21:54:22
#345234
bom, eu entendi um pouco la, mais ai da .. error: object requerid..

eu tentei faze aki com a ajuda do amigo ali fico assim

bom.. a banco de dados é access.. nome : dados
a tabela é : fazenda

nesse codigo num teria que ter o diretório do banco?
ou falei bobeira?
me ajudem por favor


Private Sub cmdsalvar_Click(Index As Integer)
With cnnComando
.ActiveConnection = dados
.CommandType = adCmdText
[ô]cria o modulo sql
.CommandText = [Ô]INSERT INTO NomedaTabela(fazenda) Values([Ô] & Txtfazenda.Text & [Ô]);[Ô]
.Execute
End With
MsgBox [Ô]Inclusão concluida com sucesso.[Ô], vbInformation + vbOKOnly + vbApplicationModal, [Ô]OK[Ô]
Saida:
Set cnnComando = Nothing
Set rsRecepcao = Nothing
Exit Sub
errInclusao:
With Err
If .Number <> 0 Then
MsgBox [Ô]Houve erro na inclusão dos dados na tabela. Talvez a OS já esteja cadastrada.[Ô], vbExclamation + vbOKOnly + vbApplicationModal, [Ô]Erro[Ô]
.Number = 0
End If
End With
End Sub



. vo manda o meu project.. se alguem conseguir me dizer como fazer a conexão, ja criei a tabela no acces tudo se eu adicionar la no acces da certo mais eu quero gravar pelo botão salvar... alguem ajuda....


é só baixar..

http://www.4shared.com/file/WJmuPjKv/Programa_Adilson.html

abraços
ROBIU 19/06/2010 05:46:17
#345241
Vou mostrar como fazer no form turma e no form fazenda. é só fazer o mesmo com os outros.
ADILSON16 19/06/2010 09:10:11
#345246
aew ROBIU, vlw cara, era isso mesmo, mais ai eu tenho que cria um modulo para cada form?
pelo q eu entendi no botão num vai codigo nenhum, é só no modulo?

eu fiz no formquadra é mais ou memos isso?

Sub CarregarGrid()
Set Rs = New ADODB.Recordset
Sql = [Ô]Select * From Fazendas order by quadra[Ô]
Conexao.AbrirConexao
Rs.Open Sql, Cnn, adOpenKeyset, adLockPessimistic
Set HGrid.DataSource = Rs
HGrid.ColWidth(0) = 700
HGrid.ColWidth(1) = 4000
Rs.Close
Set Rs = Nothing
Conexao.FecharConexao
End Sub
Private Sub cmdsalvar_Click(Index As Integer)
Sql = [Ô]Insert Into Fazendas(txtquadra) Values([ô][Ô] & Txtquadra.Text & [Ô][ô])[Ô]
Conexao.AbrirConexao
Conexao.Cnn.Execute Sql
Conexao.FecharConexao
CarregarGrid
End Sub

Private Sub Form_Load()
CarregarGrid
End Sub

só que da o erro
nenhum valor foi fornecido para um ou mais parametros necessarios..
porque será?

se naum for pedir de mais, tem como nvc manda um com umas legendas explicando pra que coloco esse codigo e com referencia no que....
acho que ia ajuda bem meu aprendizado..
vlw cara abraços
MARCELO.TREZE 19/06/2010 10:21:38
#345252
primeiro tente corrigindo os erros, veja

Sql = [Ô]Insert Into Fazendas([txt-color=#e80000]txtquadra[/txt-color]) Values([ô][Ô] & Txtquadra.Text & [Ô][ô])[Ô]

o correto seria

Sql = [Ô]Insert Into Fazendas([txt-color=#0000f0]quadra[/txt-color]) Values([ô][Ô] & Txtquadra.Text & [Ô][ô])[Ô]
ADILSON16 19/06/2010 10:37:31
#345255
ok, desculpa, erros corrigidos, consegui fazer com os outros e grava certinho, mais seria bom eu sabe praq e porque eu coloko o comando, vlw
ADILSON16 19/06/2010 11:42:27
#345260
consegui tudo certinho, mais é 1 textbox só, agora no caso é varios, como poderei fazer?

Dim sql As String
Private Sub cmdcancelar_Click(Index As Integer)
Unload Me
frmmenuprincipal.Show
End Sub
Sub CarregarGrid()
Set Rs = New ADODB.Recordset
sql = [Ô]Select * From Clientes order by cliente,razaosocial[Ô]
Conexao.AbrirConexao
Rs.Open sql, Cnn, adOpenKeyset, adLockPessimistic
Set hgrid.DataSource = Rs
hgrid.ColWidth(0) = 700
hgrid.ColWidth(1) = 4000
Rs.Close
Set Rs = Nothing
Conexao.FecharConexao
End Sub

Private Sub cmdsalvar_Click(Index As Integer)
sql = [Ô]Insert Into Clientes(Cliente),(Razão Social) Values([ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txt.razaosocial.Text & [Ô][ô])[Ô]
Conexao.AbrirConexao
Conexao.Cnn.Execute sql
Conexao.FecharConexao
CarregarGrid

End Sub

Private Sub Form_Load()
CarregarGrid
End Sub
TECLA 19/06/2010 12:09:22
#345262
A princípio, altere a linha...
sql = [Ô]Insert Into  Clientes(Cliente),(Razão Social) Values([ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txt.razaosocial.Text & [Ô][ô])[Ô]

...para:
sql = [Ô]Insert Into Clientes(Cliente, [Razão Social]) Values ([ô][Ô] & txtcliente.Text & [Ô][ô], [ô][Ô] & txtrazaosocial.Text & [Ô][ô])[Ô]


Se der erro, poste a DESCRIÇÃO DO ERRO além do código utilizado na geração do mesmo.
ADILSON16 19/06/2010 12:48:02
#345264
ok cara, agora ficou assim..

Dim sql As String
Private Sub cmdcancelar_Click(Index As Integer)
Unload Me
frmmenuprincipal.Show
End Sub
Sub CarregarGrid()
Set Rs = New ADODB.Recordset
sql = [Ô]Select * From Clientes order by cliente,razaosocial[Ô]
Conexao.AbrirConexao
Rs.Open sql, Cnn, adOpenKeyset, adLockPessimistic
Set hgrid.DataSource = Rs
hgrid.ColWidth(0) = 700
hgrid.ColWidth(1) = 4000
Rs.Close
Set Rs = Nothing
Conexao.FecharConexao
End Sub

Private Sub cmdsalvar_Click(Index As Integer)
sql = [Ô]Insert Into Clientes(Cliente,[Razão Social]) Values([ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txt.razaosocial.Text & [Ô][ô])[Ô]
Conexao.AbrirConexao
Conexao.Cnn.Execute sql
Conexao.FecharConexao
CarregarGrid

End Sub

Private Sub Form_Load()
CarregarGrid
End Sub


aparece o erro...

---------------------------------------------------------------------
compile error:
Procedure declaration does not descrption of event or
procedure having the same name
---------------------------------------------------------------------

parece que ta tudo certo...
oque pode ser?
MARCELO.TREZE 19/06/2010 15:55:02
#345275
vou explicar funciona assim

a query insert, no caso de varios campos

INSERT INTO tabela (campo1, campo2, campo3, campo4) Values ('valor1[ô],[ô]valor2[ô],[ô]valor3[ô],[ô]valor4[ô])

reparou como funciona se tuiver 10 campos na sua tabela vc vai colocando separado por virgulas, sem colchetes

e a sequencia deve ser exata veja como tem que ficar sua query

 sql = [Ô]Insert Into  Clientes(Cliente,Razão Social) Values ([ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txt.razaosocial.Text & [Ô][ô])[Ô]

lembre-se apenas sde sempre colocar a chave primaria da tabela na inclusão esta é obrigatória, ex:

supondo que na tabela exista UM CAMPO iD_CLIENTE FICARIA ASSIM

 sql = [Ô]Insert Into  Clientes(Id_Cliente, Cliente,Razão Social) Values ([Ô] & txtID.Text & [Ô],[ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txt.razaosocial.Text & [Ô][ô])[Ô]


e é isso
ADILSON16 19/06/2010 16:39:33
#345278
ok...
fiz isso, mais na hora que vou cadastrar cliente aparece o erro:
---------------------------------------------------------------------
compile error:
Procedure declaration does not descrption of event or
procedure having the same name
---------------------------------------------------------------------

Dim sql As String

Private Sub cmdcancelar_Click(Index As Integer)
Unload Me
frmmenuprincipal.Show
End Sub

Sub CarregarGrid()
Set Rs = New ADODB.Recordset
sql = [Ô]Select * From Clientes order by Cliente,Razão Social,CNPJ,Incrição Estadual,Endereço,Cidade,UF,Bairro,CEP,Telefone,Fax,E-Mail[Ô]
Conexao.AbrirConexao
Rs.Open sql, Cnn, adOpenKeyset, adLockPessimistic
Set hgrid.DataSource = Rs
hgrid.ColWidth(0) = 700
hgrid.ColWidth(1) = 4000
Rs.Close
Set Rs = Nothing
Conexao.FecharConexao
End Sub

Private Sub cmdsalvar_Click(Index As Integer)
sql = [Ô]Insert Into Clientes(Cliente,Razão Social,CNPJ,Incrição Estadual,Endereço,Cidade,UF,Bairro,CEP,Telefone,Fax,E-Mail) Values([ô][Ô] & txtcliente.Text & [Ô][ô],[ô][Ô] & txtrazaosocial.Text & [Ô][ô],[ô][Ô] & txtcnpj.Text & [Ô][ô],[ô][Ô] & txtincricaoestadual.Text & [Ô][ô],[ô][Ô] & txtendereco.Text & [Ô][ô],[ô][Ô] & txtcidade.Text & [Ô][ô],[ô][Ô] & txtuf.Text & [Ô][ô],[ô][Ô] & txtbairro.Text & [Ô][ô],[ô][Ô] & txtcep.Text & [Ô][ô],[ô][Ô] & txttelefone.Text & [Ô][ô],[ô][Ô] & txtfax.Text & [Ô][ô],[ô][Ô] & txtemail.Text & [Ô][ô])[Ô]
Conexao.AbrirConexao
Conexao.Cnn.Execute sql
Conexao.FecharConexao
CarregarGrid

End Sub


Private Sub Form_Load()
CarregarGrid
End Sub


porque será o erro?
MARCELO.TREZE 19/06/2010 20:03:03
#345281
tem como vc colocar a estrutura de sua tabela, com os campos e tipo de campos
Página 1 de 2 [13 registro(s)]
Tópico encerrado , respostas não são mais permitidas
Voltar