*.sql Datei mit Visual Basic 2005 ausführen

[martin1701]

Hallo erstmal,

ich hoffe dass mir hier jemand mit meinem Problem weiterhelfen kann:

Also es geht darum wie ich in Visual Basic eine Sql Datei ausführen kann.

Gegeben ist ein SQL Server 2005 mit einer Datenbank und diversen Tabellen und ein Ordner mit vorbereiten sql Dateien zur Abfrage und Manipulation.

Diese Dateien sollen im Programm mit ihrem Dateinamen in eine Listbox geladen werden.

lstskripte.Items.Clear()
Dim strPath As String
Dim strDateiName As String
strPath = "C:\Skripte\"
strDateiName = Dir(strPath & "*.sql")
Do Until Len(strDateiName) = 0
lstskripte.Items.Add(strDateiName)
strDateiName = Dir()
Loop

Dies funktioniert auch bereits. Nun soll aber diese Datei in der Listbox markiert werden können und anschließend per Klick auf einen Button ausgeführt werden.

Private Sub cmdausfuehren_Click()
Dim skript As String
skript = lstskripte.SelectedItem.ToString()
.....
End Sub

Und an dieser Stelle komme ich nicht mehr weiter. Hat jemand eine Idee wie ich die Datei ausführen kann.

MfG

Martin

 

[ronaldh]

Falsches Forum. Dieses Forum ist VB Classic (VB 4-6, VBA und VBS), Du arbeitest mit VB .NET. Am Besten stellst Du Deine Fragen dort, da sitzen die .NET-Spezialisten.

 

[ANI]

Hey martin1701,

nach meines Erachtens musst du einen Recordset mittels "ADO Data Control (OleDB)" auf die Datenbank setzen.

Dim con As New ADODB.Connection

con.CommandTimeout = 120
con.Open "Provider=MSDASQL.1;Persist Security Info=False;User ID=Passwort;Data Source=" & lstskripte.Text & ";Initial Catalog=NameDeinerDatenbank"
Adodc1.ConnectionString = con

Hat bei meinem SQL-Tool get.

Gruß ANI

 

[ANI]

Sorry,

den kleinen Zusatz noch vergessen.

Command ist deine SQL-Abfrage

Adodc1.RecordSource = Command
Adodc1.Refresh

ANI