• Home
 · 
• Databases/Data Access/DAO/ADO
 · 
• List Database names of by Driver type and server name using ADO.

List Database names of by Driver type and server name using ADO.

List Database names of by Driver type and server name using ADO.

Rate List Database names of by Driver type and server name using ADO.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Dim cn As New ADODB.Connection
Dim rsSchema As New ADODB.Recordset
Dim ConnStr As String

ConnStr = "driver={" & strDriver & "};"
ConnStr = ConnStr & "server=" & strServer & ";"
ConnStr = ConnStr & "uid=sa;pwd=;"

cn.ConnectionString = ConnStr
cn.Open

Set rsSchema = cn.OpenSchema(adSchemaCatalogs)

Do Until rsSchema.EOF
  cboToFill.AddItem rsSchema!Catalog_Name
  rsSchema.MoveNext
Loop

End Sub