dataset寫資料顯示成功了,在datagridview中也是可以看到了,但是資料庫里還是沒有
Private Sub BTNWriteDB_Click(sender As Object, e As EventArgs) Handles BTNWriteDB.Click
'寫資料庫
With AnswerDataSet1.word
.AddwordRow(themno:=ThemId, myid:=myid, mysubid:=mysubid, secid:=Secid, pageid:=PageId, paraghid:=ParaghId, stylename:=StyName, searchtext:=SearchText, myvalue:=TXTValue.Text, score:=CMBScore.SelectedIndex)
End With
MessageBox.Show("寫入成功")
End Sub
Private Sub BTNDBVisible_Click(sender As Object, e As EventArgs) Handles BTNDBVisible.Click
If BTNDBVisible.Text = "顯示資料庫" Then
'AnswerDataSet1.word.
DataGridView1.Visible = True
BTNDBVisible.Text = "隱藏資料庫"
Else
DataGridView1.Visible = False
BTNDBVisible.Text = "顯示資料庫"
End If
End Sub
轉載請註明出處,本文鏈接:https://www.uj5u.com/net/165464.html
標籤:VB.NET
