|
|
|
|
|
|
|
|
Dicas
|
|
|
Visual Basic (Banco de Dados)
|
|
 |
Título da Dica: Conexão ADO amarrada com um TextBox
|
 |
|
|
|
Postada em 18/7/2002 por Douglas
douglasfranciscon@papel.irani.com.br
Para criar uma conexão ADO e conectá-lo à um TextBox facilmente podemos usar o exemplo abaixo.
Dim Conn As New ADODB.Connection
Dim Rs As New ADODB.Recordset
With Conn
.ConnectionString = "String de conexão"
.ConnectionTimeout = 50
.Open
End With
RS.Open "Select * from Tabela",Conn,adOpenKeyset, adLockOptimistic
Para conectar os TextBox (Usálos como Bound) basta usar as linhas abaixo:
Text1.DataSource = RS
Set Text1.DataField RS.Field("Nome_do_Campo")
|
|
|
|
|
