作者saieva (春花秋月何时了)
看板Visual_Basic
标题Re: [.NET] 下命令之後的text更新
时间Tue Sep 9 20:53:49 2008
刚刚试过了~的确
不下第二个命令 TEXT就还是连的上DB
附上程式码会比较清楚~
以新增为例:
If txt_cusname.Text = "" Then
MsgBox("请输入客户姓名!")
Else
Try
Dim connDbStr, selectCmd, selectcmd2 As String
connDbStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data
Source=C:\Documents and Settings\User\My Documents\Visual Studio
2005\Projects\eye_manage\eye_manage\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) & "')"
selectcmd2 = "select * from cus_bdata"
Dim conn As OleDbConnection = New OleDbConnection(connDbStr)
conn.Open()
Dim cmd As OleDbCommand = New OleDbCommand(selectCmd, conn)
Dim da As OleDbDataAdapter = New OleDbDataAdapter(selectcmd2,
conn)
Dim ds As DataSet = New DataSet
cmd.ExecuteNonQuery()
da.Fill(ds, "cus_bdata")
DataGridView1.DataSource = ds.Tables("cus_bdata")
da.Dispose()
conn.Close()
MsgBox("更新成功!")
Catch ex As Exception
MessageBox.Show(ex.Message, "例外资讯")
End Try
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
有高手知道如何处理咩?
感激不尽了!!
--
※ 发信站: 批踢踢实业坊(ptt.cc)
◆ From: 122.116.179.102