使用 vb.net 插入數據庫

Question

我有這個表格：

  <div className="form-group">
    <label>First Name</label>
  <input type="text" name="fname" className={`form- 
    control${this.state.fnameMandatory ? ' bg-danger' : ''}`} value= 
    {this.state.fname}  onChange = {this.handleNameChange}/>
     <p className="text-danger">{this.state.fnameMandatory}</p>
    </div>

   <div className="form-group">
   <label>last Name</label>
    <input type="text" name="lname" className={`form- 
       control${this.state.fLnameMandatory ? ' bg-danger' : ''}`} value= 
       {this.state.lname}  onChange = {this.handleLNameChange}/>
      <p className="text-danger">{this.state.fLnameMandatory}</p>
    </div>
<div className="col-xs-6">

        <input type="button" className="btn btn-primary" onClick={this.handleSaveBtn} value="save" />
    </div>

誰能幫助我如何使用 vb.net 插入數據庫？

我做的：

 Function Save(ByRef _data As String) As String Implements IDataService.Save

    Dim strsql As StringBuilder
    Dim cnsql As SqlConnection
    Dim cmsql As SqlCommand
    Dim myvalue As String

    Try

        cnsql = New SqlConnection(lcConSql)
        cnsql.Open()

        strsql = New StringBuilder

        With strsql
            .Append("INSERT INTO tbl_students (st_firstName, st_lastName, st_gender, st_email) VALUES (// i dont know what to put in here)")
        End With

        cmsql = New SqlCommand(strsql.ToString, cnsql)

我是 vb 的新手，我不知道如何插入數據庫...有什么幫助嗎？ 提前致謝

Answer 1

為此，您不需要StringBuilder 。

cmsql.CommandText = "INSERT INTO tbl_students (st_firstName, st_lastName, st_gender, st_email) VALUES (@FirstName,@LastName,@Gender,@Email)"

cmsql.Parameters.AddWithValue("@FirstName", "John")
cmsql.Parameters.AddWithValue("@LastName", "Doe")
cmsql.Parameters.AddWithValue("@Gender", "M")
cmsql.Parameters.AddWithValue("@Email", "johndoe@email.com")

cmsql.ExecuteNonQuery()

Answer 2

我創建了一個 SQL 連接器類，以便能夠輕松連接到數據庫，然后您可以執行命令並從數據庫中獲取記錄。 除了 SSMS（Microsoft 的數據庫）之外，我沒有在任何東西上嘗試過它，但它應該可以工作。

Imports System.Data.SqlClient

Class sqlConnector
    Private con As SqlConnection
    Public hasSetup As Boolean = False

    Public Sub Setup(ByVal dataSource As String, ByVal initialCatalog As String, ByVal username As String, ByVal password As String)
        Dim connectionString As String = String.Format("Data Source={0};Initial Catalog={1};User ID={2};Password={3};", dataSource, initialCatalog, username, password)
        con = New SqlConnection(connectionString)

        Try
            con.Open()
            con.Close()
            hasSetup = True
        Catch e As Exception
            Console.WriteLine("There was an error connecting to the server, " & e.Message)
        End Try
    End Sub

    Public Sub Execute(ByVal sqlString As String)
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand(sqlString, con)
        cmd.ExecuteScalar()
        con.Close()
    End Sub

    Public Function GetFirstRow(ByVal sqlString As String) As String()
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand(sqlString, con)
        Dim reader As SqlDataReader = cmd.ExecuteReader()
        reader.Read()
        Dim returnData As String() = New String(reader.FieldCount - 1) {}

        For i As Integer = 0 To reader.FieldCount - 1
            returnData(i) = reader(i).ToString()
        Next

        con.Close()
        Return returnData
    End Function

    Public Function GetSingleValue(ByVal sqlString As String) As String
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand(sqlString, con)
        Dim reader As SqlDataReader = cmd.ExecuteReader()
        reader.Read()
        Dim returnData As String
        returnData = reader(0).ToString()
        con.Close()
        Return returnData
    End Function

    Public Function GetDataTable(ByVal sqlString As String) As DataTable
        con.Open()
        Dim cmd As SqlCommand = New SqlCommand(sqlString, con)
        Dim reader As SqlDataAdapter = New SqlDataAdapter(cmd)
        Dim returnData As DataTable = New DataTable()
        reader.Fill(returnData)
        con.Close()
        Return returnData
    End Function

End Class

Answer 3

Imports System.Data
Imports System.Data.SqlClient
Imports MySqlConnector

Class MainWindow

    Private Sub Button_Click(sender As Object, e As RoutedEventArgs)

        Dim mydatatable As datatable = MyRst("select * from clienti")
        Dim mynewrow As DataRow = mydatatable.NewRow
        mynewrow("NUME") = text1.Text
        mynewrow("PRENUME") = text2.Text
        mynewrow("AN") = text3.Text
        mynewrow("DATA_EXPIRARE") = text4.Text
        mydatatable.Rows.Add(mynewrow)
        MyRstUpdate(mydatatable, "clienti")
        mylistboxPriva.Items.Clear()
        Dim myGridView As New GridView
        myGridView.AllowsColumnReorder = False

        For Each item As DataColumn In mydatatable.Columns

            Dim myNewColumn As New GridViewColumn

            myNewColumn.DisplayMemberBinding = New Binding(item.ColumnName)
            myNewColumn.Header = item.ColumnName
            myGridView.Columns.Add(myNewColumn)

        Next
        mylistboxPriva.View = myGridView
        For Each item As DataRow In mydatatable.Rows
            mylistboxPriva.Items.Add(New With {Key .ID = item.ItemArray(0), Key .NUME = item.ItemArray(1), Key .PRENUME = item.ItemArray(2), Key .AN = item.ItemArray(3), Key .DATA_EXPIRARE = item.ItemArray(4)})
        Next

    End Sub

    Public Function MyRst(strSQL As String) As DataTable

        Dim rstData As New DataTable
        Using conn As New MySqlConnection("Server=localhost;User ID=root;Database=bazadedate")
            Using cmdSQL As New MySqlCommand(strSQL, conn)
                conn.Open()
                rstData.Load(cmdSQL.ExecuteReader)
                rstData.TableName = strSQL

            End Using
        End Using

        Return rstData
    End Function


    Public Sub MyRstUpdate(rstData As DataTable, strTableName As String)

        Using conn As New MySqlConnection("Server=LOCALHOST;User ID=root;Database=bazadedate")
            Using cmdSQL As New MySqlCommand("SELECT * from " & strTableName, conn)

                Dim da As New MySqlDataAdapter(cmdSQL)
                Dim daUP As New MySqlCommandBuilder(da)
                conn.Open()
                da.Update(rstData)
            End Using
        End Using

    End Sub

    Public myvar
    Private Sub DataGrid_SelectionChanged(sender As Object, e As SelectionChangedEventArgs)

    End Sub

    Private Sub text2_TextChanged(sender As Object, e As TextChangedEventArgs) Handles text2.TextChanged

    End Sub

    Private Sub DELETE_Click(sender As Object, e As RoutedEventArgs) Handles DELETE.Click
        Dim mydatatable As DataTable = MyRst("select * from clienti")
        Dim myselectedindex = mylistboxPriva.SelectedIndex
        mydatatable.Rows(myselectedindex).Delete()
        MyRstUpdate(mydatatable, "clienti")

        mydatatable = MyRst("select * from clienti")
        mylistboxPriva.Items.Clear()
        Dim myGridView As New GridView
        myGridView.AllowsColumnReorder = False

        For Each item As DataColumn In mydatatable.Columns

            Dim myNewColumn As New GridViewColumn

            myNewColumn.DisplayMemberBinding = New Binding(item.ColumnName)
            myNewColumn.Header = item.ColumnName
            myGridView.Columns.Add(myNewColumn)

        Next
        mylistboxPriva.View = myGridView
        For Each item As DataRow In mydatatable.Rows
            mylistboxPriva.Items.Add(New With {Key .ID = item.ItemArray(0), Key .NUME = item.ItemArray(1), Key .PRENUME = item.ItemArray(2), Key .AN = item.ItemArray(3), Key .DATA_EXPIRARE = item.ItemArray(4)})
        Next
    End Sub

    Private Sub myListBox_Loaded(sender As Object, e As RoutedEventArgs) Handles mylistboxPriva.Loaded

        Dim mydatatable As DataTable = MyRst("select * from clienti")


        Dim myGridView As New GridView
        myGridView.AllowsColumnReorder = False

        For Each item As DataColumn In mydatatable.Columns

            Dim myNewColumn As New GridViewColumn

            myNewColumn.DisplayMemberBinding = New Binding(item.ColumnName)
            myNewColumn.Header = item.ColumnName
            myGridView.Columns.Add(myNewColumn)

        Next
        mylistboxPriva.View = myGridView
        For Each item As DataRow In mydatatable.Rows
            mylistboxPriva.Items.Add(New With {Key .ID = item.ItemArray(0), Key .NUME = item.ItemArray(1), Key .PRENUME = item.ItemArray(2), Key .AN = item.ItemArray(3), Key .DATA_EXPIRARE = item.ItemArray(4)})
        Next

    End Sub

    Private Sub mylistboxPriva_SelectionChanged(sender As Object, e As SelectionChangedEventArgs) Handles mylistboxPriva.SelectionChanged

    End Sub
End Class