无法插入SQL Server数据库

编程问答 2022-08-23

问题描述

我正在学习Visual Basic。现在，我无法将数据插入表中。我已经尝试了所有可能的查询，但仍然无法通过表单将数据插入表中。这是代码： 我表单中的代码：

Private Sub UpisiButt_Click(sender As Object,e As EventArgs) Handles UpisiButt.Click
        InsertData()
    End Sub
    Private Sub InsertData()
        SQL.AddParam("@sifra",TbSifra.Text)
        SQL.AddParam("@naziv",TbNaziv.Text)
        SQL.AddParam("@user","Root")
        SQL.AddParam("@Skriven",0)
        SQL.ExecQuery("INSERT INTO dbo.VrsteNalogaTable (Id,Sifra,Naziv,user,DatumUpisa,Skriven) VALUES (@sifra,@naziv,@user,GETDATE(),@Skriven);")
        MsgBox("Dodani podaci")
    End Sub
End Class

我从中加载函数的类

Imports System.Data
Imports System.Data.SqlClient
Public Class VrsteNalogaClassNET
    Private connection As New SqlConnection("SERVER=DESKTOP-SQMPH0E\JASIMSQL;Database=VrsteNaloga;Trusted_Connection=True;User=Jasim;Pwd=1234;")
    Private DBCmd As SqlCommand
    Public DBDA As SqlDataAdapter
    Public DBDT As DataTable
    'Query Params
    Public Params As New List(Of SqlParameter)
    'Query Statistics
    Public RecordCount As Integer
    Public Exception As String

    Public Sub New()

    End Sub
    'Allow connection string override
    Public Sub New(ConnectionString As String)
        connection = New SqlConnection(ConnectionString)
    End Sub
    ' Execute query sub
    Public Sub ExecQuery(Query As String)
        'Reset query stats
        RecordCount = 0
        Exception = 0
        Try
            connection.Open()
            ' CREATE DB Command
            DBCmd = New SqlCommand(Query,connection)
            ' LOAD PARAMS INTO DB COMMAND
            Params.ForEach(Sub(p) DBCmd.Parameters.Add(p))

            ' CLEAR PARAM
            Params.Clear()

            'EXECUTE COMMAND & FILL DATASET

            DBDT = New DataTable
            DBDA = New SqlDataAdapter(DBCmd)
            RecordCount = DBDA.Fill(DBDT)

        Catch ex As Exception
            'CAPTURE ERROR
            Exception = "ExecQuery Error: " & vbNewLine & ex.Message
        Finally
            If connection.State = ConnectionState.Open Then connection.Close()

        End Try
    End Sub
    'ADD PARAMS
    Public Sub AddParam(Name As String,Value As Object)
        Dim NewParam As New SqlParameter(Name,Value)
        Params.Add(NewParam)
    End Sub
End Class

注意：我可以选择数据并在网格上显示，麻烦是当我尝试通过表单插入时。

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

vb.netvb.net