TRAZER DADOS DA TABELA NOS CAMPOS DO FORMULARIO

RICKSOUSA 25/05/2012 11:30:07
#402757

alguem com uma solução?

ADILSOO 25/05/2012 12:43:51
#402766

Cara, como já foi dito, voce tem aque abrir a conexão, qual parte voce não está entendendo? A que abre a conexão? Se for isso, repara em que no seu proprio modulo tem um comentario, [Ô][txt-color=#0000f0] ABRE CONEXÃO [/txt-color][Ô], oque vc tem que fazer? Antes do seu comando que está dando o erro, coloque...

[txt-color=#0000f0] Conecta True [/txt-color]

Veja se funciona...

RICKSOUSA 25/05/2012 12:46:12
#402767

mais antes do comando eu coloquei sim:

Conecta True, de uma olhada la e repare que eu coloquei.

OMAR2011 25/05/2012 13:46:24
#402780

Faça este teste para poder compreender como funciona.

Dim db As ADODB.Connection
Dim Tb As ADODB.Recordset


Private Sub Form_Load()
Set db = New ADODB.Connection
Set Tb = New ADODB.Recordset
db.CursorLocation = adUseClient
db.Open [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & App.Path & [Ô]\Banco.MDB[Ô]
Set Tb.ActiveConnection = db
Tb.Open [Ô]Select * From CadClientes[Ô], db
[ô]Set DataGrid1.DataSource = Tb
If Tb.RecordCount = 0 Then
id.Caption = 1
Else
Call Mostra_dados
End If
End Sub

Private Sub Mostra_dados()
id.Caption = Tb([Ô]idcliente[Ô])
cli.Text = Tb([Ô]cliente[Ô])
tel.Text = Tb([Ô]telefone[Ô])
Mac.Text = Tb([Ô]mac[Ô])
[ô]ou
[ô]id.Caption = [Ô][Ô] & tb(0)
[ô]cli.Text = [Ô][Ô] & tb(1)
[ô]tel.Text = [Ô][Ô] & tb(2)
[ô]Mac.Text = [Ô][Ô] & tb(3)
End Sub

RICKSOUSA 25/05/2012 14:45:55
#402790

eu fazendo sem o modulo do jeito que explicou eu consegui aqui amigo, obrigado.

vou continuar testando aqui vlw.