将数据插入 datagridview vb.net

Question

如何将钱行和列插入 datagridview？ 喜欢i went to insert to datagridview这个 是我的代码：

Private Sub btnSimpan_Click(sender As Object, e As EventArgs) Handles btnSimpan.Click
    Call konek()
    Dim simpan As String
    Dim hasil As Integer

    simpan = ("INSERT INTO T_Penjadwalan(Kode_Penjadwalan,Kelas,Kode_Jam,Jam_Mulai,Jam_Selesai,Senin,Selasa,Rabu,Kamis,Jumat,Sabtu) VALUES ('" & TBPENJADWALAN.Text & "','" & CBKelas.Text &
             "','" & KJ1.Text & "','" & KJ2.Text & "','" & KJ3.Text & "','" & KJ4.Text & "','" & KJ5.Text & "','" & KJ6.Text & "','" & KJ7.Text & "','" & KJ8.Text & "','" & KJ9.Text &
             "','" & JM1.Text & "','" & JM2.Text & "','" & JM3.Text & "','" & JM4.Text & "','" & JM5.Text & "','" & JM6.Text & "','" & JM7.Text & "','" & JM8.Text & "','" & JM9.Text &
             "','" & JS1.Text & "','" & JS2.Text & "','" & JS3.Text & "','" & JS4.Text & "','" & JS5.Text & "','" & JS6.Text & "','" & JS7.Text & "','" & JS8.Text & "','" & JS9.Text &
             "','" & Senin1.Text & "','" & Senin2.Text & "','" & Senin3.Text & "','" & Senin4.Text & "','" & Senin5.Text & "','" & Senin6.Text & "','" & Senin7.Text &
             "','" & Selasa1.Text & "','" & Selasa2.Text & "','" & Selasa3.Text & "','" & Selasa4.Text & "','" & Selasa5.Text & "','" & Selasa6.Text & "','" & Selasa7.Text &
             "','" & Rabu1.Text & "','" & Rabu2.Text & "','" & Rabu3.Text & "','" & Rabu4.Text & "','" & Rabu5.Text & "','" & Rabu6.Text & "','" & Rabu7.Text &
             "','" & Kamis1.Text & "','" & Kamis2.Text & "','" & Kamis3.Text & "','" & Kamis4.Text & "','" & Kamis5.Text & "','" & Kamis6.Text & "','" & Kamis7.Text &
             "','" & Jumat1.Text & "','" & Jumat2.Text & "','" & Jumat3.Text & "','" & Jumat4.Text & "','" & Jumat5.Text & "','" & Jumat6.Text & "','" & Jumat7.Text &
             "','" & Sabtu1.Text & "','" & Sabtu2.Text & "','" & Sabtu3.Text & "','" & Sabtu4.Text & "','" & Sabtu5.Text & "','" & Sabtu6.Text & "','" & Sabtu7.Text & "')")
    Try
        cmd = New SqlCommand(simpan, conn)
        hasil = cmd.ExecuteNonQuery()
        If hasil > 0 Then
            MessageBox.Show("Data Tersimpan", "Sukses", MessageBoxButtons.OK, MessageBoxIcon.Information)
            Call tampilgridpenjadwalan()
        End If
    Catch ex As Exception
        MessageBox.Show("Failed : " & ex.Message, "Gagal", MessageBoxButtons.OK, MessageBoxIcon.Error)
    End Try
End Sub}

Answer 1

首先，正如其他人所说，在VB.NET中执行SQL查询时最好使用参数。它有很多好处，而且相当简单。

以插入查询的 sn-p 为例，与其将第一个值子句定义为 '" & TBPENJADWALAN.Text & "'，不如将​​第一个值定义为 @TBPENJADWALAN。

然后使用以下代码将来自TBPENJADWALAN.Text 的字符串传递给@TBPENJADWALAN：

cmd.Parameters.Add("@TBPENJADWALAN", OleDbType.VarChar, 50).Value = TBPENJADWALAN.Text

OleDbType.VarChar = 您存储的数据类型

50 = 字段大小

所以，而不是你的代码如下......

simpan = ("INSERT INTO T_Penjadwalan(Kode_Penjadwalan) VALUES ('" & TBPENJADWALAN.Text & "')

...应该是：

simpan = ("INSERT INTO T_Penjadwalan(Kode_Penjadwalan) VALUES (@TBPENJADWALAN)")

cmd.Parameters.Add("@TBPENJADWALAN", OleDbType.VarChar, 50).Value = TBPENJADWALAN.Text

它更清洁、更安全。您可以采用该示例并更改插入查询的其余部分。

---

就您关于将数据插入DataGridView 的原始问题而言，根据我的经验，最好创建一个DataSet 和Adapter 来填充它。试试这个：

Dim adapter As SQLDataAdapter
Dim ds As New DataSet
adapter = New SQLDataAdapter(simpan, cmd)
adapter.Fill(ds)
DataGridView1.DataSource = ds.Tables(0)