ROSTAM2
سه شنبه 25 دی 1403, 09:46 صبح
سلام
متود اجرای QUERY یا SqlCmd در ویژوال بیسیک با استفاده از کلاس Peocess:
''' <summary>
'''
''' </summary>
''' <param name="Query">Sql Query</param>
Shared Sub Execute(Query As String)
Dim Arguments As String =
String.Format("-s . -q {0}{1}{0}", Chr(34), Query)
Process.Start("sqlcmd", Arguments)
End Sub
سورس کلاس به همراه یک نمونه:
Imports System
Imports System.Diagnostics
Public Class QueryCommands
''' <summary>
'''
''' </summary>
''' <param name="Query">Sql Query</param>
Shared Sub Execute(Query As String)
Dim Arguments As String =
String.Format("-s . -q {0}{1}{0}", Chr(34), Query)
Process.Start("sqlcmd", Arguments)
End Sub
Shared Sub CreateNewCategory(Id As Guid, Title As String)
Dim Query As String =
String.Format("INSERT INTO [CodeLibraryExtension].[dbo].[Categories] " +
"([Id], [Category]) " +
"VALUES ('{0}', '{1}');", Id, Title)
Execute(Query)
End Sub
End Class
متود اجرای QUERY یا SqlCmd در ویژوال بیسیک با استفاده از کلاس Peocess:
''' <summary>
'''
''' </summary>
''' <param name="Query">Sql Query</param>
Shared Sub Execute(Query As String)
Dim Arguments As String =
String.Format("-s . -q {0}{1}{0}", Chr(34), Query)
Process.Start("sqlcmd", Arguments)
End Sub
سورس کلاس به همراه یک نمونه:
Imports System
Imports System.Diagnostics
Public Class QueryCommands
''' <summary>
'''
''' </summary>
''' <param name="Query">Sql Query</param>
Shared Sub Execute(Query As String)
Dim Arguments As String =
String.Format("-s . -q {0}{1}{0}", Chr(34), Query)
Process.Start("sqlcmd", Arguments)
End Sub
Shared Sub CreateNewCategory(Id As Guid, Title As String)
Dim Query As String =
String.Format("INSERT INTO [CodeLibraryExtension].[dbo].[Categories] " +
"([Id], [Category]) " +
"VALUES ('{0}', '{1}');", Id, Title)
Execute(Query)
End Sub
End Class