SQL Server CE 数据库中的数据输入在运行时未显示在 dgv 中答案

【问题标题】：Data entry into SQL Server CE database not displaying in dgv during runtimeSQL Server CE 数据库中的数据输入在运行时未显示在 dgv 中
【发布时间】：2016-04-21 14:21:11
【问题描述】：

我有一个带有表名记录和 22 列的 SQL Server CE 数据库，在我的 vb.net 表单中，我有 19 个文本框和 3 个日期时间选择器，用于每个相应的文本框，还有一个绑定的 dgv，我从查询我的表。

当我运行程序并将数据输入文本框并单击保存时，将其保存为程序中的 msg“记录已保存”，但我的 dgv 中没有显示任何内容

这是我的代码：

Imports System
Imports System.Data
Imports System.Data.SqlServerCe

Public Class Form1
    Dim Cmd As SqlCeCommand
    Dim con As SqlCeConnection
    Dim affector As Integer

    Dim ConnectionString As String = ("Data Source=C:\Users\chinedu\documents\visual studio 2010\Projects\GUU SPECIALIST HOSPITAL 2\GUU SPECIALIST HOSPITAL 2\Database1.sdf")

 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'Database1DataSet.PATIENT_RECORD' table. You can move, or remove it, as needed.'
    Dim strconnection As String = ("Data Source=C:\Users\chinedu\documents\visual studio 2010\Projects\GUU SPECIALIST HOSPITAL 2\GUU SPECIALIST HOSPITAL 2\Database1.sdf")

 Try
        con = New SqlServerCe.SqlCeConnection("strconnection")
        Dim sql As SqlServerCe.SqlCeCommand = New SqlServerCe.SqlCeCommand("Query", con)
        con.Open()
        If con.State = ConnectionState.Closed Then
            MessageBox.Show("Database has failed to connect. System will now terminate.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
            End
        Else 
            Exit Sub
        End If
    Catch
        MsgBox("Connection Established")
    End Try
End Sub

'save button'
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnSave.Click
    Try
        con = New SqlCeConnection(ConnectionString)
        con.Open()
        sCommand = New SqlCeCommand("INSERT INTO RECORD([Patient_name],[Patient_Address],[Patient_Date_Of_Birth],[Patient_Phone Number],[Patient_CardNO],[Blood_Group],[Date_Admitted],[Date_Discharged],[Treatment1],[Treatment2],[Treatment3],[Treatment4],[Treatment5],[Treatment6],[Price_Unit1],[Price_Unit2],[Price_Unit3],[Price_Unit4],[Price_Unit5],[Price_Unit6],[Sub_total],[VAT],[Prev_bal],[Net_Total]) values ('" + Patient_AddressTextBox.Text + "','" + Patient_AddressTextBox.Text + "','" + Patient_Date_Of_BirthDateTimePicker.Value.Date + "','" + Phone_NumberTextBox.Text + "','" + Hospital_NumberTextBox.Text + "','" + Blood_Group_TextBox.Text + "','" + Date_AdmittedDateTimePicker.Value.Date + "','" + Date_DischargedDateTimePicker.Value.Date + "','" + Treatment1TextBox.Text + "','" + Treatment2TextBox.Text + "','" + Treatment3TextBox.Text + "','" + Treatment4TextBox.Text + "','" + Treatment5TextBox.Text + "','" + Treatment6TextBox.Text + "','" + Sub_TotalTextBox.Text + "','" + VATTextBox.Text + "','" + Previous_BalTextBox.Text + "','" + Net_TotalTextBox.Text + "',)", con)
        affector = sCommand.ExecuteNonQuery
    Catch
        MessageBox.Show("New record has been saved.", "Message", MessageBoxButtons.OK, MessageBoxIcon.Information)
    End Try
End Sub

 Private Sub BtnRecord_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRecord.Click
    strcon = ("Data Source= C:\Users\chinedu\documents\visual studio 2010\Projects\GUU SPECIALIST HOSPITAL 2\GUU SPECIALIST HOSPITAL 2\Database1.sdf")
    con = New SqlCeConnection(strcon)
    Dim query As String = " SELECT * from Records"
    Dim adpt As New SqlCeDataAdapter(query, con)
    Dim ds As New Database1DataSet()
    adpt.Fill(ds, "Records")
    RecordsDataGridView.DataSource = ds.Tables(0)

【问题讨论】：

标签： sql .net vb.net sql-server-ce

【解决方案1】：

你需要DataBind()你的GridView

在您的BtnRecord_Click 事件中应该是这样的

 RecordsDataGridView.DataSource = ds.Tables(0)
 RecordsDataGridView.DataBind() `This is your missing line.

您还可以使其在添加新记录后自动加载。只需将这两行添加到您的 Button4_Click 事件中

【讨论】：