ABRIR BD SEM USAR DATACONTROL ?

FORMIGINHA 03/06/2005 22:16:36
#86923

faça via codigo.

FABIO.ALEXANDRE 04/06/2005 00:33:58
#86935 Resposta escolhida

TENTA ASSIM

COLOCA A NUM MODULO TALVEZ NA FUNÇÃO MAIN

Public DB1 As Database

Set DB1 = OpenDatabase(App.Path & "\..\Banco\Controle.mdb", False, False, ";PWD=" & glb_Senha) 'JM 05dez01


ESPERO TER AJUDADO

ALMIRSAFADI 04/06/2005 09:32:32
#86955

E como chamo nos Forms as propriedade dos TextBox? Assim abro o banco para o programa e em cada form como chamo as propriedades dos TextBox ou Grid?

FABIO.ALEXANDRE 04/06/2005 10:30:14
#86959

BOM , AI VAI UM EXEMPLO DE COMO VAI FICAR
MANDEI JUNTO UMA FUNÇÃO Q TESTA NULL

Private Sub Form_Load()

Dim RS As Recordset

Set DB1 = OpenDatabase("C:\Bares e Restaurantes\DADOS.MDB", False, False, ";PWD=245249")
Set RS = DB1.OpenRecordset("SELECT * FROM T_GARCONS")

Set Data1.Recordset = RS

If Not RS.EOF Then
TEXT1 = CheckNull(RS!CAMPO1)
TEXT2 = CheckNull(RS!CAMPO2)
TEXT3 = CheckNull(RS!CAMPO4)
End If

End Sub


Public Function CheckNull(ByVal Conteudo As Variant, _
Optional ByVal bnlValor As Boolean = False) As Variant
On Error GoTo erro_

If Not IsNull(Conteudo) And Not IsEmpty(Conteudo) Then
If Not bnlValor Then
If Conteudo = "" Then
CheckNull = ""
Else
CheckNull = Conteudo
End If
Else
CheckNull = Conteudo
End If
Exit Function
End If

If bnlValor Then
CheckNull = 0
Else
CheckNull = ""
End If

Exit Function
erro_:
MsgBox Err.Number & ", " & Err.Description
End Function


ESPERO TER AJUDADO