Tutorial koneksi database sql server dengan visual studio 2010
Selamat malam guys kali ini saya akan membuat suatu artikel yang cukup panjang karena karena ini saya akan membagikan bagaimana cara mengkoneksikan Visual studio 2010 dengan sql server. pada artikel ini saya akan mencoba menghubungkan 3 tabel pada sql server dengan visual studio 2010.semoga dengan postinagn ini bisa membantu teman-teman semua.
Yang pertama anda lakukan adalah membuka aplikasi sql server anda. kemudian anda membuat Database baru dengan nama Db_Final. berikutnya buat table. karena di sini saya akan membuat 3 table yang pertama saya lakukan adalah membuat ketiga tabel ini kemudian setelah membuat tabel saya beru membuat desain dan tampilan pada visual studio saya. untuk lebih lengkapnya lihat gambar dan penjelasan dibawah ini.
- buat table barang dengan nama TBLBarang.
- buat table pelanggan denga nama TBLPelanggan.
- buat table supplier dengan nama TBLSupplier.
Setelah semua table telah selesai di buat berikutnya buka aplikasi visual studio 2010, kemudian buat desain sesuai yang anda inginkan. untuk lebih jelasnya perhatikan penjelasan dan gambar dibawah ini.
Yang pertama anda lakukan adala membuat Desain login.
Setelah desain login telah dibuat berikutnya adalah anda harus memasukkan kodingannya supaya form login bisa berjalan.
- Klik Button login kemudian masukkan kodingan berikut.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If TextBox1.Text = "connect" And TextBox2.Text = "1234" Then
Form2.Show()
Else
MsgBox("password yang anda masukkan salah")
End If
End Sub
If TextBox1.Text = "connect" And TextBox2.Text = "1234" Then
Form2.Show()
Else
MsgBox("password yang anda masukkan salah")
End If
End Sub
- Klik Button cancel dan masukkan kodingan "end"
- jika anda ingin memberikan warna seperti gambar anda tinggal klik 2 kali form1 kemudian masukkan kodingan berikut "Me.BackColor = Color.Aquamarine"
berikutnya adalah membuat module, tujuannya untuk mengkoneksikan data yang ada pada sql server dengan visual studio. tetapi di sini saya menghungkan banyak tabel jadi disni saya membuat 2 module. yang pertama saya membuat module pertama.
Caranya klik kanan nama "visual studio" anda kemudian klik "add" dan terakhir pilih "module".
berikutnya masukkan kodingan dibawah ini.
Imports System.Data
Imports System.Data.Sql
Module Module1
Public database As OleDb.OleDbConnection
Public Sub koneksi()
Try
database = New OleDb.OleDbConnection("Provider=SQLOleDb.1;Integrated Security=SSPI;Persist Security Info=false;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
database.Open()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
Imports System.Data.Sql
Module Module1
Public database As OleDb.OleDbConnection
Public Sub koneksi()
Try
database = New OleDb.OleDbConnection("Provider=SQLOleDb.1;Integrated Security=SSPI;Persist Security Info=false;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
database.Open()
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub
End Module
Berikutnya anda harus module2 dengan nama clskoneksi, caranya sama seperti di atas, klik kanan nama "visual studio" anda kemudian klik "add" dan terakhir pilih "module".
berikutnya masukkan kodingan dibawah ini.
Imports Microsoft.VisualBasic
Imports System.Data.Sql
Public Class ClsKoneksi
Protected Tbllogin = New DataTable
Protected SQL As String
Protected Cn As OleDb.OleDbConnection
Protected Cmd As OleDb.OleDbCommand
Protected Da As OleDb.OleDbDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated Security=SSPI;Persist Security Info=False;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
Return Nothing
Exit Function
End If
Cmd = New OleDb.OleDbCommand(Query, Cn)
Da = New OleDb.OleDbDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
Exit Sub
End If
Cmd = New OleDb.OleDbCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
Imports System.Data.Sql
Public Class ClsKoneksi
Protected Tbllogin = New DataTable
Protected SQL As String
Protected Cn As OleDb.OleDbConnection
Protected Cmd As OleDb.OleDbCommand
Protected Da As OleDb.OleDbDataAdapter
Protected Ds As DataSet
Protected Dt As DataTable
Public Function OpenConn() As Boolean
Cn = New OleDb.OleDbConnection("Provider=SQLOledB.1;Integrated Security=SSPI;Persist Security Info=False;Initial catalog=Db_Final;data source=.\SQLEXPRESS")
Cn.Open()
If Cn.State <> ConnectionState.Open Then
Return False
Else
Return True
End If
End Function
Public Sub CloseConn()
If Not IsNothing(Cn) Then
Cn.Close()
Cn = Nothing
End If
End Sub
Public Function ExecuteQuery(ByVal Query As String) As DataTable
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed")
Return Nothing
Exit Function
End If
Cmd = New OleDb.OleDbCommand(Query, Cn)
Da = New OleDb.OleDbDataAdapter
Da.SelectCommand = Cmd
Ds = New Data.DataSet
Da.Fill(Ds)
Dt = Ds.Tables(0)
Return Dt
Dt = Nothing
Ds = Nothing
Da = Nothing
Cmd = Nothing
CloseConn()
End Function
Public Sub ExecuteNonQuery(ByVal Query As String)
If Not OpenConn() Then
MsgBox("Koneksi Gagal..!!", MsgBoxStyle.Critical, "Access Failed..!!")
Exit Sub
End If
Cmd = New OleDb.OleDbCommand
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
Cmd.CommandText = Query
Cmd.ExecuteNonQuery()
Cmd = Nothing
CloseConn()
End Sub
End Class
karena anda telah membuat module, berikutnya adalah kembali mendesain semua tampilan TBLBarang, TBLPelanggan, dan TBLSupplier. yang pertama saya akan mendesain TBLBarang. lihat tampilannya pada gambar dibawah ini:
- TBLBarang.
Setelah anda membuat desainnya berikut yang mesti anda lakukan adalah memasukkan kodingannya.
Klik kanan pada form barang kemudian pilih View Code, dan masukkan kodingan berikut.
Public Class Form3
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
Call dataBarang()
End Sub
Sub dataBarang()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLBarang", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
ComboBox1.Text = ""
ComboBox2.Text = ""
TextBox6.Text = ""
TextBox7.Text = ""
TextBox8.Text = ""
Call dataBarang()
End Sub
Sub dataBarang()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLBarang", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
berikutnya klik 2 kali pada form barang dan masukkan kodingan berikut.
Call dataBarang()
Me.BackColor = Color.Aquamarine
Me.BackColor = Color.Aquamarine
berikutnya klik button Simpan dan masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLBarang values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & ComboBox1.Text & "','" & ComboBox2.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "','" & TextBox8.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
berikutnya klik button Ubah, dan masukkan kodingan berikut:
Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLBarang set kodebrg = '" & TextBox3.Text & "'where barcode = '" & TextBox2.Text & "',namabrg = '" & TextBox3.Text & "',kelompok = '" & ComboBox1.Text & "',satuan = '" & ComboBox2.Text & "',hargabeli = '" & TextBox6.Text & "',hargajual = '" & TextBox7.Text & "' stok = '" & TextBox8.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLBarang set kodebrg = '" & TextBox3.Text & "'where barcode = '" & TextBox2.Text & "',namabrg = '" & TextBox3.Text & "',kelompok = '" & ComboBox1.Text & "',satuan = '" & ComboBox2.Text & "',hargabeli = '" & TextBox6.Text & "',hargajual = '" & TextBox7.Text & "' stok = '" & TextBox8.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
berikutnya klik button hapus, dan masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLBarang where Kodebrg = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLBarang where Kodebrg = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
berikutnya klik button cari danmasukkan kodingan berikut:
Dim Kode_Barang = InputBox("Masukkan Kode Barang")
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("KodeBrg")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodebrg")
TextBox2.Text = row("barcode")
TextBox3.Text = row("namabrg")
ComboBox1.Text = row("Kelompok")
ComboBox2.Text = row("satuan")
TextBox6.Text = row("hargabeli")
TextBox7.Text = row("hargajual")
TextBox8.Text = row("stok")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("KodeBrg")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodebrg")
TextBox2.Text = row("barcode")
TextBox3.Text = row("namabrg")
ComboBox1.Text = row("Kelompok")
ComboBox2.Text = row("satuan")
TextBox6.Text = row("hargabeli")
TextBox7.Text = row("hargajual")
TextBox8.Text = row("stok")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
yang terakhir klik button tutup dan masukkan kodingan "end".
- TBLSupplier.
setelah anda membuat desain atau tampilannya berikutnya adalah memasukkan kodingan pada form tersebut.
klik kanan pada form supplier kemudian pilih view code kemudian masukkan kodingan berikut.
Public Class Form4
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Call datasupplier()
End Sub
Sub datasupplier()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLSupplier", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Call datasupplier()
End Sub
Sub datasupplier()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLSupplier", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
berikutnya klik 2 kali pada form supplier dan masukkan kodingan berikut:
Call datasupplier()
Me.BackColor = Color.Aquamarine
Me.BackColor = Color.Aquamarine
berikutnya adalah klik 2 kali button simpan, kemudian masukkan kodingan berikut.
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLSupplier values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLSupplier values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
berikutnya adalah klik 2 kali button ubah, kemudian masukkan kodingan berikut.
Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLSupplier set where kodespl = '" & TextBox1.Text & "',namaspl = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLSupplier set where kodespl = '" & TextBox1.Text & "',namaspl = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
berikutnya adalah klik 2 kali button hapus, kemudian masukkan kodingan berikut.
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLSupplier where kodespl = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLSupplier where kodespl = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
berikutnya adalah klik 2 kali button cari, kemudian masukkan kodingan berikut.
Dim Kode_Barang = InputBox("Masukkan Kode Supplier")
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("kodespl")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodespl")
TextBox2.Text = row("namaspl")
TextBox3.Text = row("alamat")
TextBox4.Text = row("telepon")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("kodespl")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodespl")
TextBox2.Text = row("namaspl")
TextBox3.Text = row("alamat")
TextBox4.Text = row("telepon")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
berikutnya adalah klik 2 kali button tutup, kemudian masukkan kodingan "end".
- TBLPelanggan.
setelah anda membuat desainnya, berikutnya adalah memasukkan kodingannya, klik kanan pada form pelanggan, kemudian pilih view code dan masukkan kodingan di bawah ini:
Public Class Form5
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Call dataPelanggan()
End Sub
Sub dataPelanggan()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLPelanggan", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
Dim tabel As OleDb.OleDbDataAdapter
Dim data As DataSet
Dim record As New BindingSource
Sub bersih()
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
Call dataPelanggan()
End Sub
Sub dataPelanggan()
Call koneksi()
tabel = New Data.OleDb.OleDbDataAdapter("select * from TBLPelanggan", database)
data = New DataSet
tabel.Fill(data)
record.DataSource = data
record.DataMember = data.Tables(0).ToString()
DataGridView1.DataSource = record
End Sub
Berikutnya klik 2 kali pada form pelanggan kemudian masukkan kodingan berikut:
Call dataPelanggan()
Me.BackColor = Color.Aquamarine
Me.BackColor = Color.Aquamarine
berikutnya klik button simpan, kemudian masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLPelanggan values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "insert into TBLPelanggan values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
sqlquery.ExecuteNonQuery()
MsgBox("data tersimpan")
Call bersih()
berikutnya klik button ubah, kemudian masukkan kodingan berikut:
Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLPelanggan set where kodeplg = '" & TextBox1.Text & "',namaplg = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
Call koneksi()
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Update TBLPelanggan set where kodeplg = '" & TextBox1.Text & "',namaplg = '" & TextBox2.Text & "',alamat = '" & TextBox3.Text & "' telepon = '" & TextBox4.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("Data Sudah diupdate")
Call bersih()
Catch ex As Exception
MsgBox(ex.ToString())
End Try
berikutnya klik button hapus, kemudian masukkan kodingan berikut:
Dim sqlquery As New OleDb.OleDbCommand
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLPelanggan where kodeplg = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
sqlquery.Connection = database
sqlquery.CommandType = CommandType.Text
sqlquery.CommandText = "Delete from TBLPelanggan where kodeplg = '" & TextBox1.Text & "'"
sqlquery.ExecuteNonQuery()
MsgBox("data dihapus")
Call bersih()
berikutnya klik button cari, kemudian masukkan kodingan berikut:
Dim Kode_Barang = InputBox("Masukkan Kode pelanggan")
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("Kodeplg")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodeplg")
TextBox2.Text = row("namaplg")
TextBox3.Text = row("alamat")
TextBox4.Text = row("telepon")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
Try
data.Tables(0).PrimaryKey = New DataColumn() {data.Tables(0).Columns("Kodeplg")}
Dim row As DataRow
row = data.Tables(0).Rows.Find(Kode_Barang)
TextBox1.Text = row("kodeplg")
TextBox2.Text = row("namaplg")
TextBox3.Text = row("alamat")
TextBox4.Text = row("telepon")
Catch ex As Exception
MsgBox("Data tidak ada / anda batal mencari data !!")
End Try
yanb terakhir klik button tutup dan masukkan kodingan "end".
Setelah semua di atas telah dibuat yang terakhir adalah membuat desain untuk form berikutnya disini hanya menggunakan Menustrip. kemudian masukkan kodingannya.
- Klik 2 kali barang dan masukkan kodingan berikut " Form3.Show()"
- klik 2 kali Supplier dan masukkan kodingan berikut " Form4.Show()"
- klik 2 kali pelanggan dan masukkan kodingan berikut " Form5.Show()"
- klik 2 kali exit danmasukkan kodingan "end"
- jika anda ingin memberi warna pada form ini, klik 2 kali pada form dan masukkan kodingan "Me.BackColor = Color.Aquamarine".
semua telah di buat dan coba jalankan aplikasinya saya yakin 100% aplikasinya akan jalan dan connect ke sql server.
Note:
- Jangan hilangkan salah satu kodingan di atas walaupun hanya Titik(.) karena jika dihilangkan aplikasinay akan error.
- Passwor untuk login yaiutu Username: connect Passwor: 1234.
- Dilarang mengcopy dan memposting ulang. hanya untuk pelajaran.
- Jika ada pertanyaan silahkan tinggalkan Comment dibawah.
sekian artikel ini semoga bermanfaat dan berguna dan membantu teman-teman semua.