Visual Basic - RE:como se llena...

Life is soft - evento anual de software empresarial
 
Vista:

RE:como se llena...

Publicado por Benjo (679 intervenciones) el 01/02/2005 02:02:16
Dim cnn1 As New ADODB.Connection
Dim rstSchema As New ADODB.Recordset
cnn1.ConnectionString = "Provider=MSDASQL.1;Persist Security Info=False;Data Source=MyDSN"
cnn1.Open
Set rstSchema = cnn1.OpenSchema(adSchemaTables)
Do Until rstSchema.EOF
cmbSelect.AddItem rstSchema!TABLE_NAME
rstSchema.MoveNext
Loop
rstSchema.Close
cnn1.Close
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder