简单的数据插入和数据检索应用程序>>

Question

如何编码插入数据和数据检索？

Imports System.Data.SqlClient

Public Class Form1

如何对插入数据和数据检索进行编码？导入System.Data.SqlClient公共类Form1

Answer 1

[http://youtube.com/watch?v=vJ315n4a-gc [参考视频] [1]

Answer 2

Imports System.Data.SqlClient

Public Class Form1

    Dim con As New SqlConnection
    Dim cmd As New SqlCommand

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        con.ConnectionString = "Data Source=(LocalDB)\MSSQLLocalDB;AttachDbFilename=C:\Users\Kavindu Mihiranga\Desktop\VB.net\sample app\sample app\customer.mdf;Integrated Security=True"
        If con.State = ConnectionState.Open Then
            con.Close()
        End If

        con.Open()

        disp_data()


    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click


        If name.Text = "" Or Pnum.Text = "" Or city.Text = "" Or address.Text = "" Then

            MessageBox.Show("Please fill in all boxes")
            Exit Sub

        End If

        cmd = con.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "insert into table1 values('" + name.Text + "','" + Pnum.Text + "','" + city.Text + "','" + address.Text + "')"
        cmd.ExecuteNonQuery()

        disp_data()

        MessageBox.Show("Record Inserted Succesfully")

    End Sub


    Public Sub disp_data()

        cmd = con.CreateCommand
        cmd.CommandType = CommandType.Text
        cmd.CommandText = "select * from table1"
        cmd.ExecuteNonQuery()
        Dim dt As New DataTable()
        Dim da As New SqlDataAdapter(cmd)
        da.Fill(dt)
        DataGridView1.DataSource = dt

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        disp_data()

    End Sub
End Class