Visual Basic

[rsiles]

En el primer caso suponiendo que trabajas con control data en el caso de ado y dao es lo mismo unicamente cambia la coneccion

Private Sub Form_Load()
Dim ciclo As Integer

Data1.DatabaseName = "C:\db1.mdb"
Data1.RecordSource = "select * from cli"
Data1.Refresh

For ciclo = 0 To 1
Text1.Item(ciclo).DataField = Data1.Recordset.Fields(ciclo)
Next ciclo
MsgBox Text1.Item(1).Text
End Sub
'////////////////////////////////////////////////////////////////////////////////
En el segundo caso


Primero

Option Explicit

Private Sub Command1_Click()
Dim anuncio As String
Dim var As String
Dim Cantidad As Byte



'PARA ESTABLECER EL CAMBIO DE SEMANTICA
'ENTRE MILLARDOS Y MILES DE MILLONES.
'EN VENEZUELA POR EJEMPLO SE UTILIZA UNO
'U OTRO INDISTINTAMENTE.
If OptiMiles Then
gOpcionMil = True
Else
gOpcionMil = False
End If


'BORRAMOS LAS LABEL DEL FORMULARIO
Label1.Caption = ""
lblFormato.Caption = ""
LblDigitos.Caption = ""

'NO PERMITIR UN CERO EN EL PRIMER DIGITO
'ESTO CONFUNDIRA LA VARIABLE "entero"
If Mid(Text1.Text, 1, 1) = "0" Then
Label1.Caption = "El primer valor de un cifra no puede ser cero. "
Exit Sub
End If

'SI DESEAMOS ACTIVAR/DESACTIVAR EL REDONDEO
'IMPLEMENTEMOS/TAPAMOS ESTA LLAMADA A LA
'FUNCION REDONDEAR Y LIBERAMOS LA VARIABLE var.
If IsNumeric(Text1.Text) Then
If OptiSiRedondeo Then
var = Redondear(Text1.Text, 0)
Else
var = Text1.Text
End If

'NI MENOS NI MÁS, PARA NO PERDER EL TIEMPO.
If Val(var) < -999999999999999# Or Val(var) > 999999999999999# Then
anuncio = MsgBox("La cifra no es traducible.... ", vbCritical)
Exit Sub
End If


Cantidad = Len(Text1.Text)
lblFormato.Caption = Format(var, "Standard") '"###,###,###,###,##0.00")
LblDigitos.Caption = "Cifra de " & Cantidad & " digítos."
Label1.Caption = EnLetras(var) '<=== O "var" redondeada

End If

Text1.SetFocus
End Sub

Private Sub Text1_GotFocus()
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 13 Then
Command1_Click
Text1_GotFocus
End If
End Sub