erro de ado - VBWEB


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: erro de ado

ninh@

SÃO PAULO
SP - BRASIL

Postada em 27/09/2005 18:23 hs

tenho um toolbar com comando de salvar com os seguinte codigo

        Case "salvar"
              Dim strSQL As String
              strSQL = "INSERT INTO eventuais (codigo,titulo,matricula,porcentagem,dt_inicio,dt_conclusao, status, prioridade, descricao,link)VALUES('" & _
                      CInt(txtCodigo.Text) & "','" & txtTitulo.Text & "', '" & dtcboMatricula.Text & "'," & CInt(cboConclusao.Text) & ", '" & _
                      CDate(mskInicio.Text) & "', '" & CDate(mskConclusão.Text) & "', '" & cboStatus.Text & "', '" & cboPrioridade.Text & "', '" & _
                      rtbDescrição.Text & "', '" & txtlink.Text & "')"
              With Adodc1
                   .Visible = False
                   .ConnectionString = CNN
                   .RecordSource = strSQL
                   .EOFAction = adDoMoveMax
                   .Mode = adModeReadWrite
                   .Refresh
              End With

mas qdo chega no refresh o seguinte erro ocorre: operação não permitida qdo o objeto esta fechado

mas já coloquei um componente ado exclusivo para este comando e não mudou o erro.

Este é o primeiro ado com sql de inclusão que faço neste meu primeiro programinha, por isso estou tão perdida assim

obrigado por me ajudarem...

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 27/09/2005 18:54 hs

Essas coisas saem melhor fazendo puramente com o código mas vamos devagar não é...

tenta assim:

With Adodc1
                   .Visible = False
                   .ConnectionString = CNN
                   .RecordSource = strSQL
                   .EOFAction = adDoMoveMax
                   .Mode = adModeReadWrite

                   .open 'MUDAR AQUI!!!!!!!
                   .Refresh
              End With

Veja se dá certo

qq coisa é só posta

ninh@

SÃO PAULO
SP - BRASIL

Postada em 28/09/2005 13:42 hs

oi ghost acontece que ocorre erro de compilação - method or data member not found

como assim purmente com o codigo, eu não preciso do componente para que o ado funcione?

Tem alguem me olhando..... é vc?

ghost_jlp

SÃO PAULO
SP - BRASIL

Postada em 28/09/2005 15:45 hs

opa!! Errei!! hehehe é assim ó:

                   .Recordset.open 'MUDAR AQUI!!!!!!!
                   .Refresh
              End With

Desculpa o engano moça!! hehehehehe

Bom, em relação ao termo "o código puro"... a resposta é sim. Vc não precisa do componente para o ADO funcionar, falando do controle ADODC ok??

Ele é apenas uma interface pra facilitar o link com um bd...

Vc pde fazer assim:

Dim cnn as ADODB.connection

Dim rs as ADODB.Recordset

Set cnn = new ADODB.Connection

Set rs = new ADODB.Recordset

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:MeuBD"

rs.cursorlocation = adUseClient

rs.open "Select * From Tabela",cnn

prontinho... o seu sistema está conectado ao bd!

Isso é o básico, dai pra frente pode fazer mais coisas.

Mas antes de tudo vc precisa referenciar o ADO. Vá no menu "Projetc...References". Escolha "Microsoft Activex Data Objects 2.8 Library" ou qq outra versão... 2.1, 2.5 etc.

Ao inserir o controle ADO o ADODC está biblioteca já é referenciada junto.

Olha dê uma olhada aqui: http://www.macoratti.net/ado_ini.htm

não sei se esclarecerá ou complicará mais... mas grande parte da programação com acesso aos bd's é feita desta forma...

espero q ajude

Donkey

PRESIDENTE PRUDENTE
SP - BRASIL

Postada em 28/09/2005 16:02 hs

Eu sempre indico utilizar como o amigo ghost esplicou, o objeto data limita muito o programador, fora que muitas vezes sempre da uns pepininhos....

Enfim, vc usando como o ghost explicou vc vai ter muito + controle sobre seus dados, e vai crescer muito a nivel de aprendizado....

Boa sorte.

ninh@

SÃO PAULO
SP - BRASIL

Postada em 28/09/2005 17:27 hs

Valeu pessoal, vou ter muito o q fazer agora pq todo meu programa esta com o adodc.

Obrigado pela dica, funcionou legal...

Tem alguem me olhando..... é vc?

Página(s): 1/1

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

VOLTAR