Dim dbConex As New Connection Dim rsConex As New Recordset Dim cmdConex As New Command Dim Str1 As Variant Dim Sw As Boolean Dim CustomerID As String Dim CompanyName As String Dim ContactName As String Dim ContactTitle As String Dim Address As String Dim Country As String Dim Region As String Dim City As String Dim PostalCode As String Dim Phone As String Dim Fax As String Private Sub Form_Load() dbConex.CursorLocation = adUseClient dbConex.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=(Local);" rsConex.Open "Select * From Customers", dbConex, adOpenStatic, adLockBatchOptimistic Dim CteXTO As TextBox For Each CteXTO In Me.TxtDatos Set CteXTO.DataSource = rsConex Next '*********************************** Set BotonesNav1.ADORecordset = rsConex End Sub Private Sub CmdNuevo_Click() If CmdNuevo.Caption = "&Nuevo" Then Sw = True For x = 0 ...
USO PERSONAL / INSTITUCIONAL