我有这样的形式：
<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新手，不知道如何插入数据库。。。有什么帮助吗？提前感谢
您不需要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()
我创建了一个SQL连接器类，以便能够轻松地连接到数据库，然后您可以执行命令并从数据库中获取记录。除了SSMS(微软的数据库(，我还没有在任何东西上尝试过，但它应该适用
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
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