conexão via código com adodc


	Fórum
	Visual Basic

Responder

Voltar

Autor

Assunto: conexão via código com adodc

Cardoso G

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 05/09/2006 15:21 hs

Mas depois que vc estanciou o recordset ainda continua dando o mesmo erro?

Daniela
não registrado

ENUNCIADA !

Postada em 06/09/2006 08:41 hs

Sim, continua dando o mesmo erro.

Você conseguiu fazer a conexão??

O que posso estar fazendo de errado?? Se você puder, coloque o seu código aqui pra eu dar uma olhada e comparar com ao meu, assim posso verificar o que tô fazendo de errado.

Obrigada,

Daniela

Cardoso G

PATOS DE MINAS
MG - BRASIL

ENUNCIADA !

Postada em 06/09/2006 09:37 hs

ja coloquei , esta la atras

ghost_jlp

SÃO PAULO
SP - BRASIL

ENUNCIADA !

Postada em 06/09/2006 11:03 hs

Desculpe-me intrometer mas Daniela...vc chegou a fazer isto?:

Adodc1.Recordset.Open

ou Adodc1.RecordSet.Open "Select * from Tabela"

no form load?

Daniela
não registrado

ENUNCIADA !

Postada em 11/09/2006 14:41 hs

Oi gente, ainda preciso da ajuda de vocês, estou fazendo assim:

Private Sub Form_Load()

Set Adodc1.Recordset = new ADODB.Recordset

     With adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Banco.mdb;Mode=Read;Persist Security Info=False"
        .RecordSource = "Select * from Tab1"

.Recordset.Open
End With
End Sub

Private Sub cmdAvancar_Click()

    If adodc1.Recordset.EOF = True Then Exit Sub
        adodc1.Recordset.MoveNext

    If lblNumero.Caption = CStr(NumFinal) Then
        cmdAvancar.Enabled = False
    Else
        cmdAvancar.Enabled = True
    End If
End Sub

Private Sub cmdRetornar_Click()
    If adodc1.Recordset.BOF = True Then Exit Sub
        adodc1.Recordset.MovePrevious

    If lblNumero.Caption = 1 Then
        cmdRetornar.Enabled = False
    Else
        cmdRetornar.Enabled = True
    End If
End Sub

mas ainda tá dando erro, Como seria a forma correta de se setar o objeto adodc no form load?

Daniela

wncruz

RIO DE JANEIRO
RJ - BRASIL

ENUNCIADA !

Postada em 11/09/2006 15:03 hs

Tenta assim...

' Essa duas linha em (General)

' Se já declarou adodc1 não precisa copiar...

Dim adodc1 As New ADODB.Connection
Dim rsRecordset As ADODB.Recordset

Private Sub Form_Load()
Set rsRecordset = New ADODB.Recordset

     With adodc1
        .ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "Banco.mdb;Mode=Read;Persist Security Info=False"
        .Open
    End With
    rsRecordset.Open "Select * from Tab1", adodc1, adOpenStatic, adLockReadOnly
End Sub

Private Sub cmdAvancar_Click()
    If rsRecordset.EOF = True Then Exit Sub
        rsRecordset.MoveNext

    If lblNumero.Caption = CStr(NumFinal) Then
        cmdAvancar.Enabled = False
    Else
        cmdAvancar.Enabled = True
    End If
End Sub

Private Sub cmdRetornar_Click()
    If rsRecordset.BOF = True Then Exit Sub
        rsRecordset.MovePrevious

    If lblNumero.Caption = 1 Then
        cmdRetornar.Enabled = False
    Else
        cmdRetornar.Enabled = True
    End If
End Sub

Sds,

"O segredo é quebrar os problemas em pequenos pedaços administráveis. Se você lidar com eles, termina antes de saber disso."

Watson Gomes da Cruz

TÓPICO EDITADO

Página(s): 3/5 « ANTERIOR PRÓXIMA »

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

VOLTAR