Cara Update data di Datagridview dengan edit rows vb.net

November 30, 2015 | | 0 komentar

setelah kemaren udah nulis bagaimana cara menampilkan data di datagridview dari database kali ini saya mau share cara update data di datagridview dengan edit rows. jadi kaya sql server setiap kita edit rows otomatis data nya akan berubah di database

berikut codingan nya.

Imports System.Data.SqlClient

Public Class Form2

Const connectionstring As String = "Data Source=TOP;Initial Catalog=latihan;Persist Security Info=True;User ID=atm; password=atm"
Private SQL As String = "select * from siswa"
Private con As New SqlConnection(connectionstring)
Private dt As New DataTable
Private adapter As New SqlDataAdapter(Sql, con)
Private commandbuilder As New SqlCommandBuilder(adapter)

Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
adapter.Fill(dt)
DataGridView1.DataSource = dt
End Sub

Private Sub DataGridView1_RowEnter(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowEnter
adapter.Update(dt)
End Sub

Private Sub DataGridView1_RowLeave(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.RowLeave
adapter.Update(dt)
End Sub

End Class

sekian cara update data di Datagridview dengan edit rows di vbnet. silahkan download project nya di sini http://www.mediafire.com/download/cw025fdq0hinp2e/Datagridview+update+edit+rows.rar

Cara menampilkan data Database ke DataGridview VB.net

November 29, 2015 | | 0 komentar

Cara menampilkan data Database ke DataGridview VB.net - berikut adalah cara load data yang ada di database lalu memunculkan nya di datagridview pada pemrograman vb.net. silahkan simak kodingan nya.

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

isidbgrid()

End Sub

Sub isidbgrid()
Dim str As String = "Data Source=TOP;Initial Catalog=latihan;Persist Security Info=True;User ID=atm; password=atm"
Dim con As New SqlConnection(str)
Dim com As String = "Select nama, alamat from siswa"
Dim Adpt As New SqlDataAdapter(com, con)
Dim ds As New DataSet()
Adpt.Fill(ds, "siswa")
DataGridView1.DataSource = ds.Tables(0)
End Sub

jika masih ada pertanyaan seputar Cara menampilkan data Database ke DataGridview VB.net silahkan tanya di komentar.

Cara Option value ke textfield di php

November 23, 2015 | | 0 komentar

Berikut adalah cara menampilkan hasil option value ke textfield di php

ini adalah script html nya

<select id="filter" name="filter">
<option id="AyamKremes" value="Ayam Kremes">Ayam Kremes</option>
<option id="AyamPenyet" value="Ayam Penyet">Ayam Penyet</option>
<option id="AyamBakar" value="Ayam Bakar">Ayam Bakar</option>
</select>

<input type ='text' name="key" id ="field" value ="" />

ini adalah script javascriptnya
<script type="text/javascript">
document.getElementById('filter').onchange = function () {
document.getElementById('field').value = event.target.value
}
</script>

misal nya anda ingin menampilkan harga dari option values tersebut
tinggal ganti kaya gini
<option id="AyamKremes" value="9000">Ayam Kremes</option>
<option id="AyamPenyet" value="10000">Ayam Penyet</option>

demo nya bisa lihat disini http://jsfiddle.net/qeSZR/174/

sekian cara merubah option value ke textfield PHP

Cara mendapatkan kata per kata pada Richtextbox vb6

November 11, 2015 | | 0 komentar

berikut adalah cara mendapatkan atau menampilkan kata per kata pada di richtextbox di vb6.
berikut adalah codingan nya.

Private Sub Command1_Click()
Dim arr() As String
Dim bbs() As String
Dim ck As String

    Dim i As Integer
    Dim n As Integer
    arr = Split(RichTextBox1.Text, vbCrLf)

    For i = 0 To UBound(arr)
        cr = arr(i)
        bbs = Split(cr, " ")
        For n = 0 To UBound(bbs)
        MsgBox bbs(n)
        Next
    Next
End Sub

semoga bisa membantu teman teman untuk memudah pencarian dengan kata specific di richtextbox di vb6