Public snipts » KeiDash's snipts » VB6 with SQL connection.

• Option ExplicitPrivate cnn As ADODB.ConnectionPrivate rst As ADODB.Recordset
  
  Private Sub cmdAbrir_Click()    
  Dim tField As ADODB.Field    
  
  '' Por si ya estaba abierta...
  Set cnn = Nothing    
  Set rst = Nothing    
  '' Crear los objetos
      
  Set cnn = New ADODB.Connection    
  Set rst = New ADODB.Recordset    '
  'Abrir la base usando las credenciales de Windows    
  cnn.Open "Provider=SQLOLEDB; " & "Initial Catalog=pubs; " & "Data Source=(local)\NETSDK; " & "integrated security=SSPI; persist security info=True;"    
  'Abrir el recordset indicando la tabla a la que queremos acceder
  rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic    '    ' Asignar los nombres de los campos al combo
  
  With cboCampos        
      .Clear
      For Each tField In rst.Fields            
         .AddItem tField.Name
      Next
     .ListIndex = 0    
  End With   
  
  ' Cerrar el recordset y la conexión
  rst.Close    
  cnn.Close    
  End Sub

  vb.net

  1

  Option ExplicitPrivate cnn As ADODB.ConnectionPrivate rst As ADODB.Recordset
  
  Private Sub cmdAbrir_Click()    
  Dim tField As ADODB.Field    
  
  '' Por si ya estaba abierta...
  Set cnn = Nothing    
  Set rst = Nothing    
  '' Crear los objetos
      
  Set cnn = New ADODB.Connection    
  Set rst = New ADODB.Recordset    '
  'Abrir la base usando las credenciales de Windows    
  cnn.Open "Provider=SQLOLEDB; " & "Initial Catalog=pubs; " & "Data Source=(local)\NETSDK; " & "integrated security=SSPI; persist security info=True;"    
  'Abrir el recordset indicando la tabla a la que queremos acceder
  rst.Open "SELECT * FROM authors", cnn, adOpenDynamic, adLockOptimistic    '    ' Asignar los nombres de los campos al combo
  
  With cboCampos        
      .Clear
      For Each tField In rst.Fields            
         .AddItem tField.Name
      Next
     .ListIndex = 0    
  End With   
  
  ' Cerrar el recordset y la conexión
  rst.Close    
  cnn.Close    
  End Sub
  

  copy | embed

0 Comments