myAdapter.InsertCommand.Parameters.Add("@Item", SqlDbType.VarChar, "50" "Item")

'SQLCommand instanzieren
Dim sqlcmd As New SqlClient.SqlCommand()
 
'Dem SQLCommand eine Connection zuweisen
sqlcmd.Connection = sqlConn
 
'Die Übergabeparameter des SQLCommands plätten
sqlcmd.Parameters.Clear()
 
'... und neu setzen (in der Klammer hinter dem @ ist das Tabellenfeld, hinterm 
' Komma der Wert, der in dieses Feld geschrieben werden soll)
 
sqlcmd.Parameters.Add("@kdnr", cint(txtkundennr.text))
sqlcmd.Parameters.Add("@belegnr", txtname.text)
 
 
'Den SQL-String im CommandText-Property setzen
sqlcmd.CommandText = "Insert into kunden(kdnr, name) values (@kdnr, @name)"
 
'Connection des Commands öffnen
sqlcmd.Connection.Open()
 
'SQL-Abfrage starten (NonQuery weil keine Resultate geliefert werden)
sqlcmd.ExecuteNonQuery()
 
'Connection des Commands schließen
sqlcmd.Connection.Close()

Star

Murphy:
 1.) Nichts ist so leicht wie es aussieht!
 2.) Alles dauert l?nger als du denkst!
 3.) Alles, was schief gehen kann, geht schief!

Dim cn As New SqlConnection()
        Dim custDS As New DataSet()
        Dim da1 As New SqlDataAdapter()
        Dim da2 As New SqlDataAdapter()
        Dim dr As DataRow
        Dim cb As SqlCommandBuilder
 
        cn.ConnectionString = _
          "server=servername;database=northwind;uid=sa;pwd=password;"
        cn.Open()
        da1 = New SqlDataAdapter("select * from Customers", cn)
        cb = New SqlCommandBuilder(da1)
 
        da1.Fill(custDS, "Customers")
 
        'Get the original commands.
 
        da1.InsertCommand = cb.GetInsertCommand
        da1.DeleteCommand = cb.GetDeleteCommand
        da1.UpdateCommand = cb.GetUpdateCommand
 
        Debug.WriteLine("Original command length: " & _
          da1.InsertCommand.CommandText.Length)
 
        'Modify the Insert command.
 
        da1.InsertCommand.CommandText = "select * from customers where" & _
          "customerid=@@identity"
 
        da1.InsertCommand.UpdatedRowSource = UpdateRowSource.FirstReturnedRecord
 
        da2.InsertCommand = da1.InsertCommand
        da2.DeleteCommand = da1.DeleteCommand
        da2.UpdateCommand = da1.UpdateCommand
 
        'Add a record to the table.
 
        Dim tblCust As DataTable
        tblCust = custDS.Tables("Customers")
 
        Dim drCust As DataRow
 
        drCust = tblCust.NewRow()
        drCust("CustomerID") = "ZYYYY"
        drCust("CompanyName") = "Zora's Yummies"
        drCust("ContactName") = "Christophe Namby"
        drCust("ContactTitle") = "Assistant Manager"
 
        tblCust.Rows.Add(drCust)
 
        'Update the backend.
 
        Debug.WriteLine("Length da1 before insert: " & _
          da1.InsertCommand.CommandText.Length)
 
        da1.Update(custDS, "Customers")
 
        Debug.WriteLine("Length da1 after insert: " & _
          da1.InsertCommand.CommandText.Length)
        Debug.WriteLine("length da2 before insert: " & _
        da2.InsertCommand.CommandText.Length)
 
        da2.Update(custDS, "Customers")
 
        Debug.WriteLine("Length da2 after insert: " & _
          da2.InsertCommand.CommandText.Length)