作者saieva (小六子)
看板Visual_Basic
标题[.NET] 这是微软的bug吗?
时间Thu Sep 4 21:56:08 2008
请输入专案类型(网站专案或者应用程式专案)：
VB2005 + ACCESS 单机应用:
新增 删除 更新时
gridview一直不能更新,爬文後发现应该是另外写SQL进去的关系
於是我写了一些东西下去更新:
以下是新增时的语法:
Private Sub btn_insert_Click(ByVal sender As System.Object, ByVal e As
System.EventArgs) Handles btn_insert.Click
If txt_cusname.Text = "" Then
MsgBox("请输入客户姓名!")
Else
Dim connDbStr, selectCmd As String '定义
connDbStr = "Provider=Microsoft.Jet.OLEDB.4.0;
DataSource=C:\Documents and Settings\User\My Documents\Visual Studio
2005\Projects\0828\SD\0829.mdb;" '引入资料库
'以下新增语法:
selectCmd = "INSERT INTO cus_bdata
(cus_name,occu,cell_phone,home_phone,fax,E_mail,addr,birth,remark) VALUES ('"
& (txt_cusname.Text) & "', '" & (txt_job.Text) & "','" & (txt_cellphone.Text)
& "','" & (txt_home.Text) & "','" & (txt_fax.Text) & "', '" &
(txt_email.Text) & "', '" & (txt_addr.Text) & "',#" & (mtxt_cusbir.Text) &
"#,'" & (txt_cusmeno.Text) & "')"
Dim conn As OleDbConnection = New OleDbConnection(connDbStr)
conn.Open()
Dim cmd As OleDbCommand = New OleDbCommand(selectCmd, conn)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectCmd,conn)
Dim ds As DataSet = New DataSet
da.Fill(ds, "cus_bdata")
DataGridView1.DataSource = ds.Tables("cus_bdata").AddNew()
cmd.ExecuteNonQuery()
conn.Close()
da.Dispose()
MsgBox("SUCCESS")
txt_cusid.Text = ""
txt_cusname.Text = ""
txt_job.Text = ""
txt_cellphone.Text = ""
txt_home.Text = ""
txt_fax.Text = ""
txt_email.Text = ""
txt_addr.Text = ""
mtxt_cusbir.Text = ""
txt_cusmeno.Text = ""
End If
End Sub
虽然可以成功更新,但gridview里的资料会全部不见= =....
有高手知道这是怎麽一回事咩? = =
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.179.102
※ 编辑: saieva 来自: 122.116.179.102 (09/04 22:00)