具體代碼如下：
Public Class Form1
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim con As MySql.Data.MySqlClient.MySqlConnection
Dim da As MySql.Data.MySqlClient.MySqlDataAdapter
Dim ds As DataSet
con = New MySql.Data.MySqlClient.MySqlConnection
con.ConnectionString = "*;port=10156;database=*;UID=*;PWD=*"
con.Open()
Dim conm As New MySql.Data.MySqlClient.MySqlCommand("select * from sprxq”, con)
ds = New DataSet
da.Fill(ds, "cpyxq")
Dim dr As DataRow
dr = ds.Tables("cpyxq").NewRow()
dr("商品嗎") = TextBox1.Text
dr("名稱") = TextBox2.Text
dr("生產日期") = TextBox3.Text
dr("保質期") = TextBox4.Text
dr("下架日期") = TextBox5.Text
dr("狀態") = TextBox6.Text
ds.Tables("sqyxq").Rows.Add(dr)
Dim scd As New MySql.Data.MySqlClient.MySqlCommandBuilder(da)
da.Update(ds, "cpyxq")
DataGridView1.DataSource = ds.Tables("spyxq")
con.Close()
End Sub
Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick
If e.RowIndex < DataGridView1.Rows.Count - 1 Then
TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells(1).Value.ToString()
TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells(2).Value.ToString()
TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells(3).Value.ToString()
TextBox4.Text = DataGridView1.Rows(e.RowIndex).Cells(4).Value.ToString()
TextBox5.Text = DataGridView1.Rows(e.RowIndex).Cells(5).Value.ToString()
TextBox6.Text = DataGridView1.Rows(e.RowIndex).Cells(6).Value.ToString()
End If
End Sub
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
Dim con As MySql.Data.MySqlClient.MySqlConnection
Dim da As MySql.Data.MySqlClient.MySqlDataAdapter
Dim ds As DataSet
con = New MySql.Data.MySqlClient.MySqlConnection
con.ConnectionString = "server=*;port=10156;database=*;UID=*;PWD=*"
con.Open()
da = New MySql.Data.MySqlClient.MySqlDataAdapter("SELECT * From cpyxq", con)
ds = New DataSet
da.Fill(ds, "cpyxq")
Dim dr As DataRowds.dataTables("cpyxq").PrimaryKey= New DataColumn() {ds.Tables("cpyxq").Columns("記錄序號")}
dr = DataRowds.dataTables("cpyxq").)
dr("商品嗎") = TextBox1.Text
dr("名稱") = TextBox2.Text
dr("生產日期") = TextBox3.Text
dr("保質期") = TextBox4.Text
dr("下架日期") = TextBox5.Text
dr("狀態") = TextBox6.Text
Dim scd As New MySql.Data.MySqlClient.MySqlCommandBuilder(da)
da.Update(ds, "cpyxq")
DataGridView1.DataSource = ds.Tables("cpyxq")
con.Close()
End Sub
其中報錯是DataRowds.dataTables("cpyxq")這個代碼段“未定義型別”和DataRowds.dataTables("cpyxq")“未宣告DataRowds”。我就奇怪了，這代碼基本上都是按書來的，再根據自己的需要做輕微調整，怎么就報錯了呢？
End Class
uj5u.com熱心網友回復：
書本上沒換行吧Dim dr As DataRow
ds.dataTables("cpyxq").PrimaryKey= New DataColumn() {ds.Tables("cpyxq").Columns("記錄序號")}
uj5u.com熱心網友回復：
復制來的代碼吧，一樓說得√。沒分行uj5u.com熱心網友回復：
明顯是DataRow ds兩個。uj5u.com熱心網友回復：
樓上說的對不是一個東西是2個東西轉載請註明出處，本文鏈接：https://www.uj5u.com/net/17961.html
標籤：VB.NET
上一篇：vb.net如何實作通過路徑讀取excel資料存放到sql server中
下一篇：用靜態類做Buff，可行嗎