Zdravím, vím, že je tady na to článek, ale nějak nemůžu přijít an to jak načíst data do parametru:
Protected Sub Button1_Click(ByVal sender As Object, ByVal e As EventArgs) Handles Button1.Click
Dim SQLDotaz As String
Dim ConnectionString As String
ConnectionString = "Server=localhost\SQLEXPRESS;Initial Catalog=freya_maternity;Trusted_Connection=yes;"
Dim Conn As New SqlConnection(ConnectionString)
Dim Cmd As New SqlCommand
'Dim command As New SqlCommand(commandText, connection)
SQLDotaz = " INSERT INTO Category (JmenoKategorie) VALUES (@Nazev)"
Cmd.Parameters.AddWithValue("@Nazev", TextBox1.Text)
Try
'Pridani zaznamu do tabulky OK
Conn.ConnectionString = ConnectionString
Conn.Open()
Cmd = New SqlCommand(SQLDotaz, Conn)
Cmd.ExecuteNonQuery()
TextBox1.Text = ""
Catch ex As Exception
'MsgBox.Show(ex.Message.ToString())
End Try
End Sub
V tomto případě se dotaz neprovede... Chybu tuším v špatném načtení proměnné do parametru,, nebo špatně složeném dotazu... Díky moc DuSan
|