CØwboy
|
ITAQUAQUECETUBA
SP - BRASIL
|
|
Postada em 31/10/2004 09:27 hs
Oi gente como faço para me conectar ao BD através do ADO valew |
|
|
|
|
|
|
|
|
|
|
Postada em 01/11/2004 07:42 hs
AdoNome.ConnectionString = conexao AdoNome.RecordSource = "SELECT * FROM tabela" AdoNome.Refresh |
|
|
|
Rochª
|
RIO DE JANEIRO
RJ - BRASIL
|
|
ENUNCIADA !
|
|
|
Postada em 01/11/2004 08:54 hs
__________________________________________________________________________ Qualquer coisa post Rochª
|
|
|
|
Mateus
|
AMADORA
PT - PORTUGAL
|
|
|
ENUNCIADA !
|
|
|
Postada em 03/11/2004 09:42 hs
Public Sub LimparCampos()
Dim Obj As Control
For Each Obj In Controls
If TypeOf Obj Is TextBox Then Obj.Text = ""
If TypeOf Obj Is ComboBox Then Obj.Text = ""
If TypeOf Obj Is CheckBox Then Obj.Value = vbUnchecked
'For i = 0 To 8
' chkHobbies(i).Enabled = True
'Next Next
End Sub
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
|
|
Postada em 03/11/2004 09:44 hs
Peço desculpa, mas a resposta anterior era para um outro tópico. O exemplo que pretendia dar era, afinal: Public Function ConexaoDados() As Connection base = PstrCamDados & "mvdoctab.mdb" Set dbDados = New ADODB.Connection With dbDados .Provider = "Microsoft.Jet.OLEDB.4.0" .Properties("Data Source") = base .Properties("Jet OLEDB:Database Password") = "password" .Open End With End Function
João Mateus Se precisar de ajuda extra, visite: http://joaomateus.planetaclix.pt
|
|
|
|
