【发布时间】:2009-04-02 23:09:01
【问题描述】:
我正在使用数据网格视图来显示来自数据库的信息,但我无法正确更新它。 我可以看到数据库中的数据,但是当我更改信息并保存它时,它会更改整个列的信息。我的行需要在同一列中有不同的值,所以这是一个问题。
-到目前为止,这是我的代码,程序所做的是列出输入的交易。
Public Class Form1
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Handles Button3.Click
If MsgBox("Add new transaction?", MsgBoxStyle.YesNo, " ") <> 7 Then
If IsNumeric(in_cost.Text) Then
Dim x As Int16 = Database1DataSet.Table1.Count + 1 '//gets # value
Me.Table1TableAdapter.Insert(Format(Now, "dddd, M/dd/yy"), x, in_cost.Text, in_prod.Text, in_type.Text, in_note.Text, 9999.99) '//Writes new index to DB table
Me.Table1TableAdapter.Fill(Me.Database1DataSet.Table1)
Else
MsgBox("Cost is non-numeric!")
End If
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Table1TableAdapter.Fill(Me.Database1DataSet.Table1)
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Me.Table1TableAdapter.Fill(Me.Database1DataSet.Table1)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.Table1TableAdapter.Update(Me.Database1DataSet.Table1)
End Sub
End Class
-SQL 更新命令:
UPDATE Table1
SET Balance = @p1, Note = @p2, Type = @p3, Product = @p4, Cost = @p5, # = @p6, Date = @p7
提前感谢您的帮助。
【问题讨论】:
-
这看起来像 VB.Net 代码,而不是 VB 6 代码。
-
@Ben:如果 tpdi 回答了您的问题,则将其标记为正确;)