[英]Data is not displaying in DataGridView at runtime
我已经编写了一些代码行,使用“保存”按钮将数据添加/保存到数据库中,但是每次我运行该程序并将数据输入到各个文本框中时,我只会看到一个“记录已成功保存”对话框,但是什么也不会在我的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
好的,我不知道您的错误,但是您以错误的方式处理异常。 这是您应该执行的操作(这里不提及SQL注入):
Try
' Your code here
Catch e as Exception
MsgBox.show(e.Message, "An Error occured")
End Try
NB:我在这里发布此内容是因为它太久了,无法发表评论...
尝试这个:
' Assumes that connection is a valid SqlConnection object.
'your query
Dim queryString As String = _
"SELECT Patient_Name,Patient_Address,AdmittedDate,PatientsDateOf 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 FROM dbo.Treatment_price"
Dim adapter As SqlDataAdapter = New SqlDataAdapter( _
queryString, connection)
Dim dsTreatment_price As DataSet = New DataSet
adapter.Fill(dsTreatment_price)
'fill grid
datagridview1.dataSource = dsTreatment_price.tables(0)
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.