Announcement

Collapse
No announcement yet.

gespeicherte SQL Prozedur ausführen

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • gespeicherte SQL Prozedur ausführen

    Hallo wie kann ich VB.NET eine gespeicherte Prozedur ausführen und dieser Parameter übergeben.

    Ich möchte der Prozedur die Parameter key numeric(17,5), id varchar(15), group1 int und group2 int übergeben.
    Diese habe ich als gleichnamige Variablen im VB.NET.

    Bisher habe ich das:

    Code:
        Public Shared Function EMGprocWriteEplPart(ByVal ID As String, ByVal KEY As Double, ByVal GROUP1 As String, ByVal GROUP2 As String)
            'Gespeicherte Prozedur ausführen
            Dim strSQL_exec_write_part As String
            Dim conn As New SqlConnection(ConnSTR_mydb)
            conn.Open()
    
    
            strSQL_exec_write_part = "proc_write_part"
            Dim cmd As New SqlCommand(strSQL_exec_write_part, conn)
    
            cmd.CommandType = CommandType.StoredProcedure
    
            conn.Close()
        End Function
    Aber wie kann ich nun die vier Parameter übergeben??

    Danke im Voraus!

    MFG
    Mangid

  • #2
    Hallo,

    für einen OleDb-Command funktioniert es so:

    Definition der String und Parameter:

    Code:
    
    strSQLInsert = "INSERT INTO tblBank (pkBankGuid, strBank) " + _
    "VALUES(@pkBankGUID, @strBank)"
    olecmd = New OleDbCommand(strSQLInsert, conOle)
    With olecmd.Parameters
    .Add("@pkBankGUID", OleDb.OleDbType.Guid)
    .Add("@strBank", OleDbType.VarChar)
    EndWith
    

    Wertübergabe aus einem Datagridview (zB im RowLeave Ereignis untergebracht)
    Code:
    
    WithMe.Grid.CurrentRow
    Try
    .Cells("pkBankGUID").Value = omanNUll.fnManageDBnull(Me.Grid.CurrentRow.Cells(0).Value, "GUID")
    Debug.Print("Me.Grid.CurrentRow.Cells(0).Value = " + Me.Grid.CurrentRow.Cells(0).Value.ToString)
    olecmd.Parameters.Item("@pkBankGUID").Value = .Cells("pkBankGuid").Value
    .Cells("strBank").Value = omanNUll.fnManageDBnull(Me.Grid.CurrentRow.Cells(1).Value, "String")
    Debug.Print("Me.Grid.CurrentRow.Cells(1).Value = " + Me.Grid.CurrentRow.Cells(1).Value.ToString)
    olecmd.Parameters.Item("@strBank").Value = .Cells("strBank").Value
    

    Gruß
    Christian

    PS.: für solche Fragen solltest du vielleicht in den SQL-Foren schmökern!

    Comment

    Working...
    X