新手各位:何不更新?
教各位好心人:
我是一名初者,去店抱了一本<visual basic 2005入提高>的(清大出版社出版),我按他上面的源代做了接更新法更新,上下了本的源代程序也不能更新!!!----datagrid示已更新,但程序重新再仍更新.
此源代如下:
Imports System
Imports System.Reflection
Imports System.Data.SqlClient
Imports System.Data
'接(已通)
Public Class Form1
Dim ConnString As String = "Data Source=ken;Initial Catalog=pubs;Integrated Security=true"
Dim SQLString As String = "SELECT * FROM authors"
Dim SQLDbConn1 As New System.Data.SqlClient.SqlConnection(ConnString)
Dim adapter1 As New SqlDataAdapter(SQLString, SQLDbConn1)
Dim dataset1 As New System.Data.DataSet
Dim CB_adapter1 As SqlCommandBuilder = New System.Data.SqlClient.SqlCommandBuilder(adapter1)
Dim BindingSource1 As BindingSource
'以上接部分接正常
'除句(buttn1第一按)
If (Me.BindingContext(dataset1, "authors").Count > 0) Then
Me.BindingContext(dataset1, "authors").RemoveAt(Me.DataGridView1.CurrentRow.Index)
'更新句(buttn2第二按)
Dim num As Integer
'砦?腔?睡晤
Me.BindingContext(dataset1, "authors").EndCurrentEdit()
'?dataset蜊腔?
Dim chgobj As New DataTable
chgobj = CType(dataset1.Tables("authors").GetChanges, DataTable)
'?蜊腔?祥ㄛ憩硒湔
If Not chgobj Is Nothing Then
'湖羲擂蟀
If SQLDbConn1.State = 0 Then SQLDbConn1.Open()
adapter1.ContinueUpdateOnError = True
Try
num = adapter1.Update(chgobj)
dataset1.Merge(chgobj)
'dataset1.AcceptChanges()
adapter1.Update(chgobj)
Catch eLoad As System.Exception
System.Windows.Forms.MessageBox.Show(eLoad.Message)
End Try
dataset1.Tables("authors").Clear()
adapter1.Fill(dataset1, "authors")
'敕擂蟀
SQLDbConn1.Close()
End If
[解决办法]
'除句(buttn1第一按)
If (Me.BindingContext(dataset1, "authors").Count > 0) Then
Me.BindingContext(dataset1, "authors").RemoveAt(Me.DataGridView1.CurrentRow.Index)
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
看到，汗就一字呀。
除是的：
Using cmd As New SqlClient.SqlCommand
With cmd
.Connection = SQLDbConn1
.CommandType = CommandType.Text
.CommandText="delete authors where 中的字段名='你想的那' " .ExecuteNonQuery()
End With
End Using
[解决办法]
其它的就在.CommandTextSQL句就可以了。。主看看SQL的。。有助。
[解决办法]
CommandText="添加你的SQL语句"
[解决办法]
CommandText="添加你的SQL语句"
[解决办法]
2楼是对得
[解决办法]
你看1楼上面的右侧，有"管理"按钮,你点管理，然后回出现给分的分数输入框，在里面写分数，最后输入你的登录口令进行给分。
[解决办法]
'dataset1.AcceptChanges()
-----------------
你把它注释了它怎么更新...先好好看看DataSet怎么用...
很多书是不负责任...但这个例子却是对的...人家讲DataSet讲Binding的2-6楼拿SQL语句来不是也在误导楼主吗...
[解决办法]
帖方法考：http://topic.csdn.net/u/20080110/19/7cb462f1-cac6-4c28-848e-0a879f4fd642.html
高分求的新增,修改,除,更新句,
————————————————————
修改和更新一意思，都是Update。
我把我的例你考下，的不是很漂亮，但是可以用。
- SQL code
--除DELETE FROM IOData_MostWHERE (HolderName = @Original_工姓名) AND (EMP_Number = @Original_工工) AND (DepartmentNo = @Original_部) AND (IODate = @Original_出入日期) AND (@IsNull_早班入 = 1 AND Time1 IS NULL OR Time1 = @Original_早班入) AND (@IsNull_早班外出 = 1 AND Time2 IS NULL OR Time2 = @Original_早班外出) AND (@IsNull_午班入 = 1 AND Time3 IS NULL OR Time3 = @Original_午班入) AND (@IsNull_午班外出 = 1 AND Time4 IS NULL OR Time4 = @Original_午班外出) AND (@IsNull_晚班入 = 1 AND Time5 IS NULL OR Time5 = @Original_晚班入) AND (@IsNull_晚班外出 = 1 AND Time6 IS NULL OR Time6 = @Original_晚班外出)--插入INSERT INTO IOData_Most (HolderName, EMP_Number, DepartmentNo, IODate, Time1, Time2, Time3, Time4, Time5, Time6, Latetime, Leaveearly, Overtime)VALUES (@工姓名,@工工,@部,@出入日期,@早班入,@早班外出,@午班入,@午班外出,@晚班入,@晚班外出,@到,@早退,@加班)--更新UPDATE IOData_MostSET HolderName = @工姓名, EMP_Number = @工工, DepartmentNo = @部, IODate = @出入日期, Time1 = @早班入, Time2 = @早班外出, Time3 = @午班入, Time4 = @午班外出, Time5 = @晚班入, Time6 = @晚班外出WHERE (HolderName = @Original_工姓名) AND (EMP_Number = @Original_工工) AND (DepartmentNo = @Original_部) AND (IODate = @Original_出入日期) AND (@IsNull_早班入 = 1 AND Time1 IS NULL OR Time1 = @Original_早班入) AND (@IsNull_早班外出 = 1 AND Time2 IS NULL OR Time2 = @Original_早班外出) AND (@IsNull_午班入 = 1 AND Time3 IS NULL OR Time3 = @Original_午班入) AND (@IsNull_午班外出 = 1 AND Time4 IS NULL OR Time4 = @Original_午班外出) AND (@IsNull_晚班入 = 1 AND Time5 IS NULL OR Time5 = @Original_晚班入) AND (@IsNull_晚班外出 = 1 AND Time6 IS NULL OR Time6 = @Original_晚班外出)
[解决办法]
主好像弄了，你把帖子20分加到了120分，不是分帖。
帖子的相操作考：http://topic.csdn.net/u/20080110/19/7cb462f1-cac6-4c28-848e-0a879f4fd642.html
[解决办法]
我在11的都是VB2005操作SQL的句。。。。。。
把上面的句分加在DeleteCommand.CommandText,InsertCommand.CommandText,UpdateCommand.CommandText面就可以了。
不才水平有限，再看不懂我也有法了。