データが実行時にDataGridViewに表示されない

Question

保存ボタンを使用してデータベースにデータを追加/保存するコードをいくつか記述しましたが、プログラムを実行してデータをさまざまなテキストボックスに入力するたびに、ダイアログボックス "レコードは正常に保存されました"が、私のdatagridviewには何も表示されませんでした。私は非働きかけのためにさまざまなサイトをチェックしました。いくつか助けて、コード行を見てください。私はSQL Serverのコンパクト3.5を使用して、私のdatatableは "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 

Answer 1

私はあなたのエラーについてはわかりませんが、間違った方法で例外を処理しています。ここでは（ここではSQLインジェクションを言及しないように）あなたがそれを行うべきかです：

Try 
    ' Your code here 
Catch e as Exception 
    MsgBox.show(e.Message, "An Error occured") 
End Try 

NB：それはコメントのためにあまりにも経度グラムですので、私はここにこれを投稿...

Answer 2

はこれを試してみてください。

あなたが見ることのMsgBox

' 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) 

SqlDataAdapter Class