sql-script in vb .net einbinden (volltextkatalog)

  • VB.NET
  • .NET (FX) 4.5–4.8

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von hjerteblod.

    sql-script in vb .net einbinden (volltextkatalog)

    Guten Morgen,

    ich habe ein Script geschrieben, welches einen Volltextkatalog und anschließend eine Volltextindexierung anlegt. Im MS SQL funktioniert es einwandfrei. Nun wollte ich es
    in mein Programm einbauen, welches ich in vb .net geschrieben habe.

    VB.NET-Quellcode

    1. Dim scriptFile As String
    2. scriptFile = Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory, "Assemblies", "Test.sql")
    4. If File.Exists(scriptFile) Then
    5. Dim fileInfo As New FileInfo(scriptFile)
    6. Dim script As String = fileInfo.OpenText().ReadToEnd()
    8. Using conn As New System.Data.SqlClient.SqlConnection("ConnectionString")
    9. Dim server As New Microsoft.SqlServer.Management.Smo.Server(New ServerConnection(conn))
    11. Try
    12. server.ConnectionContext.ExecuteNonQuery(script)
    13. Catch [error] As Exception
    14. MessageBox.Show("Fehler bei der Ausführung des Scripts",
    15. "SQL-Server Error", MessageBoxButtons.OK, MessageBoxIcon.[Error])
    16. End Try
    18. End Using
    19. End If

    Wenn ich es ausführe, erscheint das kleine Plus neben dem Volltextkatalog (wie bei der manuellen Ausführung in MS SQL auch) und verschwindet dann sofort wieder wenn ich den Katalog anzeigen lassen will.

    Dann habe ich es damit versucht:

    VB.NET-Quellcode

    1. Dim skript As String = String.Empty
    2. Dim Process_Volltext As New Process
    3. skript = Path.Combine(System.AppDomain.CurrentDomain.BaseDirectory, "Assemblies", "TEST.sql")
    4. Try
    5. Process_Volltext.StartInfo.FileName = "C:\Program Files (x86)\Microsoft SQL Server\Client SDK\ODBC\110\Tools\Binn\sqlcmd"
    6. Process_Volltext.StartInfo.Arguments = "-U sa -P " & SW_Info.password & " -S .\TESTFILE-i " & Chr(34) & skript & Chr(34) '"-S .\TESTFILE-i " & Chr(34) & skript & Chr(34)
    7. Process_Volltext.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    8. Process_Volltext.Start()
    9. Catch ex As Exception
    10. MsgBox(ex.ToString)
    11. End Try


    Selbes Ergebnis. Der Katalog lässt sich nicht öffnen.
    Weiß jemand um dieses Problem oder hat einen Ansatz wo mein Fehler liegen könnte?

    Viele Grüße und danke im Vorraus!
    hjerteblod

    Hallo,
    Wenn ich das so kurz überfliege würde mir das ins Auge stechen...
    kann es vieleicht sein das du eine Leerstelle vor den "-U ...." Argumenten vergessen hast ??

    Process_Volltext.StartInfo.Arguments = " -U sa -P " & SW_Info.password & " -S .\TESTFILE-i " & Chr(34) & skript & Chr(34) '"-S .\TESTFILE-i " & Chr(34) & skript & Chr(34)
    __________________________________________
    mfG.

    André
    __________________________________________
    Angewandte Entwicklungsumgebung: Visual Studio 2019,
    C#, SQL, JAVA, VB(A).NET, DATENBANKEN aller Art,
    Access alle Versionen

    ich habe eine lösung gefunden, vielleicht nützt es irgendwann jemanden:

    VB.NET-Quellcode

    1. Public Shared Function Volltextkatalog() As String
    3. Dim query As String = "CREATE FULLTEXT CATALOG [testKatalog]WITH ACCENT_SENSITIVITY = ON
    4. AS DEFAULT
    5. AUTHORIZATION [db_accessadmin]"
    6. Dim sqlCon As New SqlConnection("Server=BLABLA\BLUBB;Database=Documents;User=max;Pwd=mustermann")
    8. Using sqlCMD As New SqlCommand(query, sqlCon) With {
    9. .CommandType = CommandType.Text,
    10. .CommandTimeout = 15,
    11. .CommandText = query
    12. }
    13. sqlCon.Open()
    15. sqlCMD.ExecuteNonQuery()
    16. sqlCon.Close()
    17. End Using
    18. End Function
    20. Private Sub btn_Volltext_Click(sender As Object, e As EventArgs) Handles btn_Volltext.Click
    21. Volltextkatalog()
    23. End Sub

Facebook
Telefonspende