[vbusers] adodc

Thu, 26 Nov 2009 08:09:54 -0800 

Ok, muchas gracias.

 

  _____  

De: [email protected] [mailto:[email protected]] En nombre de Carlos
Maggiotti
Enviado el: jueves, 26 de noviembre de 2009 13:21
Para: vbusers List Member
Asunto: [vbusers] adodc

 

Un ejemplo que saque de El Guille. Fijate que aca estan llenando un combo "a
mano".  ademas esta reorriendo todos los Fields (Eso quiza no sea necesario
hacerlo asi)
 
Private rst As ADODB.Recordset

Private Sub cmdAbrir_Click()
    Dim tField As ADODB.Field
 
    'Definimos las variables ADODB...
    Dim cnn as ADODB.Connection
    Dim rst as ADODB.Recordset

    '
    ' 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
    '
    '
    ' Por si ya estaba abierta...
    Set cnn = Nothing
    Set rst = Nothing
End Sub

 Saludos y espero que te sirva
CarlosMag

  _____  

From: [email protected]
To: [email protected]
Subject: [vbusers] adodc
Date: Thu, 26 Nov 2009 12:27:10 -0200

Como seria, pues yo uso lo siguiente

Dim cn as new adodb.connection  

Abro la connexion.

 

.Adodc1.ConnectionString = cn

.Adodc1.RecordSource = "select …...

.Adodc1.Refresh

 

  _____  

De: [email protected] [mailto:[email protected]] En nombre de Carlos
Maggiotti
Enviado el: jueves, 26 de noviembre de 2009 12:05
Para: vbusers List Member
Asunto: [vbusers] adodc

 

Usa los objetos ADODB.Connection. Los ADO dataControl siempre fueron
problemáticos
 
Saludos
CarlosMag 

  _____  

From: [email protected]
To: [email protected]
Subject: [vbusers] adodc
Date: Thu, 26 Nov 2009 08:24:08 -0200

Buenos dias lista, estoy trabajando con VB6 y  sql2005 express, y al tratar
de usar el control adodc para editar una tabla, me dice que no puede iniciar
sesión, y es raro porque en otras máquinas sí me deja, hay algún parámetro a
nivel de servidor que puedo estar omitiendo?

Uso la siguiente cadena de conexión.

 
"Provider=SQLNCLI;Server=server\sqlexpress;Database=base;UID=sa;PWD=clave;"

Muchas gracias

 

 

  _____  

Internet Explorer 8 especial para MSN - ¡Gratis! Descargalo
<http://www.ie8.msn.com/microsoft/internet-explorer-8/es-ar/ie8.aspx>  ahora
haciendo clic aquí 

__________ Información de ESET Smart Security, versión de la base de firmas
de virus 4638 (20091126) __________

ESET Smart Security ha comprobado este mensaje.

http://www.eset.com <http://www.eset.com/> 

 

  _____  

Internet Explorer 8 especial para MSN - ¡Gratis! Descargalo ahora haciendo
clic aquí
<http://www.ie8.msn.com/microsoft/internet-explorer-8/es-ar/ie8.aspx> 

__________ Información de ESET Smart Security, versión de la base de firmas
de virus 4639 (20091126) __________

ESET Smart Security ha comprobado este mensaje.

http://www.eset.com

Responder a