Private Sub frmVPraiseapp_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim server As New Microsoft.SqlServer.Management.Smo.Server("DEVELOPER\SQLEXPRESS") For Each db As Microsoft.SqlServer.Management.Smo.Database In server.Databases cmbcompany.Items.Add(db.Name) Next End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)