Public Class form1
Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim ds As DataSet
Dim str As String
Sub KONEKSI()
Str = "Data Source=CONTOH-PC;Initial Catalog=db_penjualan;Integrated Security=True"
conn = New SqlConnection(str)
conn.Open()
End Sub
Sub tampilkandata()
da = New SqlDataAdapter("select * from tb_transaksi", conn)
ds = New DataSet
da.Fill(ds, "tb_transaksi")
DataGridView1.DataSource = ds.Tables("tb_transaksi")
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Call KONEKSI()
Call tampilkandata()
End Sub
End Class
KET : CONTOH-PC Sesuaikan dengan nama server anda
Catalog = diisi dengan nama Database
Pada prosedur tampil ( select * from adalah nama tabel yang dibuat )
salam ....dan sukses ya...!!!
