Formula Coding Simpan Single VB Net DevExpress

Silahkan Copy

Call koneksi() 
            Dim simpanHeader As String
            simpanHeader = "INSERT INTO M_divisi " &
                    "VALUES (@D1 ,@D2 ,@D3 ,@D4) "
            CMD = New SqlCommand(simpanHeader, CONN)
            With CMD.Parameters
                .AddWithValue("@D1", TBKODE.Text)
                .AddWithValue("@D2", TBDEKSRIPSI.Text)
                .AddWithValue("@D3", F_Utama.TBKODEUSER.Text.ToString)
                .AddWithValue("@D4", WaktuFix)
            End With
            CMD.ExecuteNonQuery()
            CONN.Close()