• Home
 · 
• Miscellaneous
 · 
• SQL-NS applications. Invoking a DTS Import wizard

SQL-NS applications. Invoking a DTS Import wizard

SQL-NS applications. Invoking a DTS Import wizard

Rate SQL-NS applications. Invoking a DTS Import wizard

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

'Make a reference to Microsoft SQL Namespace Object Library
'Put a command button over the form
'Type the code below in the click event of Command Button
'Install SQL Server 7.0 in your machine

Private Sub Command1_Click()

On Error GoTo Err_Handler

Dim objSQLNS As SQLNamespace

Set objSQLNS = New SQLNamespace

objSQLNS.Initialize "SQL-NS Application", SQLNSRootType_Server, "Server=.;UID=sa;Password=;", hWnd

Dim hRootItem As Long

hRootItem = objSQLNS.GetRootItem

Dim objSQLNSobj As SQLNamespaceObject

Set objSQLNSobj = objSQLNS.GetSQLNamespaceObject(hRootItem)

objSQLNSobj.ExecuteCommandByID 3, hWnd, 1

Exit Sub
Err_Handler:
MsgBox Err.Description & " " & Err.Number, vbOKOnly, "SQL-NS"

End Sub