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
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
0