我已经编写了一些代码行来使用保存按钮向我的数据库添加/保存数据,但每次运行程序并将数据输入到各种文本框中时,我只看到一个对话框“记录成功保存”但没有任何内容在我的datagridview中显示,我已经检查了各种站点的帮助,似乎非工作,可以帮助我看看我的代码行,我还是vb的新手 . 我正在使用sql server compact 3.5,我的数据表是“treatment_price” .
Private Sub btnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSave.Click
Try
Dim Query As String
'Query ="INSERT INTO Treatment_price"
Dim con As SqlServerCe.SqlCeConnection = New SqlServerCe.SqlCeConnection("Data Source= C:\Users\Chinedu\Documents\Visual Studio 2010\Projects\GUU Specialist Hospital 1\GUU Specialist Hospital 1\Treatment_price_unit.sdf")
Dim sql As SqlCeCommand = New SqlCeCommand("Query", con)
Query = " INSERT INTO Treatment_price(Patient_Name, " & "Patient Address, Admitted Date,Patients Date Of Birth,Blood Group_Genotype,Treatment1,Treament2,Treament3,Trement4,Treament5,Treament6,Unit_Price1,Unite_Price2,Unit_Price3,Unite_Price4,Unit_Price5,Unit_Price6,SubTotal,Tax,Total)VALUES('" & Patient_NameTextBox.Text & "','" & Patient_AddressTextBox.Text & "','" & Treatment1TextBox.Text & "','" & Treatment2TextBox.Text & "','" & Treatment4TextBox.Text & "','" & Treatment5TextBox.Text & "','" & Treatment6TextBox.Text & "','" & Unit_Price1TextBox.Text & "','" & Unit_Price2TextBox.Text & "','" & Unit_Price3TextBox.Text & "','" & Unit_Price4TextBox.Text & "','" & Unit_Price5TextBox.Text & "','" & Unit_Price6TextBox.Text & "','" & SubTotalTextBox.Text & "','" & TaxTextBox.Text & "','" & TotalTextBox.Text & "');"
con.Open()
Dim cmd As SqlServerCe.SqlCeCommand = New SqlServerCe.SqlCeCommand(Query, con)
cmd.ExecuteNonQuery()
Catch
If MsgBox("Record is Successfully Inserted") Then
Else
MsgBox("Record Not Succesfully Inserted,Please Check Missing Fields")
End If
con.Close()
End Try
End Sub
2 回答
好的,我不知道你的错误,但你正在以错误的方式处理异常 . 这是你应该怎么做(更不用说这里的SQL注入):
NB:我在这里发帖,因为评论太过分了......
试试这个:
SqlDataAdapter Class