Tweet
Hallo,
ich wollte nach 3 Jahren abstinenz vom programmieren, heute eine kleine Helpdesk Anwendung aufbauen.
Hier der Code:
[highlight=vbnet]
Private Sub DbInsert()
' Declaration of the Connection String
Dim InsertDatatable As New DataTable
Dim InsertConnect As String
Dim InsertStatement As String
Dim GetSchema As New SqlCommand
InsertConnect = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Dokumente und Einstellungen\Vahrmann\Desktop\VB.NET - PROJECTS\Helpdesk\Helpdesk.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True;Context Connection=False"
InsertStatement = "INSERT INTO TBProblemidentifikation ([PAntragssteller],[PAbteilung],[PBetriebssystem],[PProgramm],[PPrioritaet],[PFehlerbeschreibung]" & _
" VALUES (Hasdcha,Verk,Vista,exec,hifh,asdf)"
'Create new sql connection
Dim InsertCn As SqlConnection
InsertCn = New SqlConnection(InsertConnect)
' Create Schema for Datatable. Now we don't have to build our own Datatable
GetSchema.CommandText = "Select * From [TBProblemidentifikation]"
GetSchema.Connection = InsertCn
Dim InsertDataAdapter As New SqlDataAdapter(GetSchema)
InsertDataAdapter.FillSchema(InsertDatatable, SchemaType.Source)
'Create new SQL execute
Dim Insertsqlcommand As SqlCommand
Insertsqlcommand = New SqlCommand(InsertStatement, InsertCn)
'Parameterisierung
'create parametric-array, now the DataAdapter knows, which type of datas he has to handle.
Dim SQLPC As SqlParameterCollection = Insertsqlcommand.Parameters
'SQLPC.Add("PId", SqlDbType.BigInt, 8, "PID")
SQLPC.Add("PAntragssteller", SqlDbType.VarChar, 50, "PAntragssteller")
SQLPC.Add("PAbteilung", SqlDbType.VarChar, 50, "PAbteilung")
SQLPC.Add("PBetriebssystem", SqlDbType.VarChar, 50, "PBetriebssystem")
SQLPC.Add("PProgramm", SqlDbType.VarChar, 50, "PProgramm")
SQLPC.Add("PPrioritaet", SqlDbType.VarChar, 50, "PPrioritaet")
SQLPC.Add("PFehlerbeschreibung", SqlDbType.VarChar, 50, "PFehlerbeschreibung")
' InsertCommand for to lock the DataAdapter.
InsertDataAdapter.InsertCommand = Insertsqlcommand
'Create new sample.
Dim SQLNewRow As DataRow
SQLNewRow = InsertDatatable.NewRow
'fill with datas
'SQLNewRow("PID") = 5
SQLNewRow("PAntragssteller") = txtApplicant.Text
SQLNewRow("PAbteilung") = txtDivision.Text
SQLNewRow("PBetriebssystem") = cmbOperatingsystem.Text
SQLNewRow("PProgramm") = txtUsedprogramm.Text
SQLNewRow("PPrioritaet") = cmbPriority.Text
SQLNewRow("PFehlerbeschreibung") = txtErorrdescription.Text
'put data in table
InsertDatatable.Rows.Add(SQLNewRow)
'Update gains SQL-command
InsertDataAdapter.Update(InsertDatatable) End Sub
[/highlight]
Der Fehler entsteht beim Kompilieren in der letzten Zeile und lautet:
Ich weiß nun nicht genau, ob der Fehler im Programmcode ist, oder es mit dem SQL Server zu tun hat ...
ich wollte nach 3 Jahren abstinenz vom programmieren, heute eine kleine Helpdesk Anwendung aufbauen.
Hier der Code:
[highlight=vbnet]
Private Sub DbInsert()
' Declaration of the Connection String
Dim InsertDatatable As New DataTable
Dim InsertConnect As String
Dim InsertStatement As String
Dim GetSchema As New SqlCommand
InsertConnect = "Data Source=.\SQLEXPRESS;AttachDbFilename=C:\Dokumente und Einstellungen\Vahrmann\Desktop\VB.NET - PROJECTS\Helpdesk\Helpdesk.mdf;Integrated Security=True;Connect Timeout=30;User Instance=True;Context Connection=False"
InsertStatement = "INSERT INTO TBProblemidentifikation ([PAntragssteller],[PAbteilung],[PBetriebssystem],[PProgramm],[PPrioritaet],[PFehlerbeschreibung]" & _
" VALUES (Hasdcha,Verk,Vista,exec,hifh,asdf)"
'Create new sql connection
Dim InsertCn As SqlConnection
InsertCn = New SqlConnection(InsertConnect)
' Create Schema for Datatable. Now we don't have to build our own Datatable
GetSchema.CommandText = "Select * From [TBProblemidentifikation]"
GetSchema.Connection = InsertCn
Dim InsertDataAdapter As New SqlDataAdapter(GetSchema)
InsertDataAdapter.FillSchema(InsertDatatable, SchemaType.Source)
'Create new SQL execute
Dim Insertsqlcommand As SqlCommand
Insertsqlcommand = New SqlCommand(InsertStatement, InsertCn)
'Parameterisierung
'create parametric-array, now the DataAdapter knows, which type of datas he has to handle.
Dim SQLPC As SqlParameterCollection = Insertsqlcommand.Parameters
'SQLPC.Add("PId", SqlDbType.BigInt, 8, "PID")
SQLPC.Add("PAntragssteller", SqlDbType.VarChar, 50, "PAntragssteller")
SQLPC.Add("PAbteilung", SqlDbType.VarChar, 50, "PAbteilung")
SQLPC.Add("PBetriebssystem", SqlDbType.VarChar, 50, "PBetriebssystem")
SQLPC.Add("PProgramm", SqlDbType.VarChar, 50, "PProgramm")
SQLPC.Add("PPrioritaet", SqlDbType.VarChar, 50, "PPrioritaet")
SQLPC.Add("PFehlerbeschreibung", SqlDbType.VarChar, 50, "PFehlerbeschreibung")
' InsertCommand for to lock the DataAdapter.
InsertDataAdapter.InsertCommand = Insertsqlcommand
'Create new sample.
Dim SQLNewRow As DataRow
SQLNewRow = InsertDatatable.NewRow
'fill with datas
'SQLNewRow("PID") = 5
SQLNewRow("PAntragssteller") = txtApplicant.Text
SQLNewRow("PAbteilung") = txtDivision.Text
SQLNewRow("PBetriebssystem") = cmbOperatingsystem.Text
SQLNewRow("PProgramm") = txtUsedprogramm.Text
SQLNewRow("PPrioritaet") = cmbPriority.Text
SQLNewRow("PFehlerbeschreibung") = txtErorrdescription.Text
'put data in table
InsertDatatable.Rows.Add(SQLNewRow)
'Update gains SQL-command
InsertDataAdapter.Update(InsertDatatable) End Sub
[/highlight]
Der Fehler entsteht beim Kompilieren in der letzten Zeile und lautet:
SQLException wurde nicht behandelt.
Falsche Syntax in der Nähe des 'VALUES'-Schlüsselwortes.
Falsche Syntax in der Nähe des 'VALUES'-Schlüsselwortes.
Comment