Imports
System.Data
Imports
System.Data.Sql
Module Module1
Public
Dtbase As New
OleDb.OleDbConnection
Public
Tampil As New
OleDb.OleDbCommand
Public
Tampil2 As New
OleDb.OleDbCommand
Public
Tampil3 As New
OleDb.OleDbCommand
Public
Tampil4 As New
OleDb.OleDbCommand
Public
Tampil5 As New
OleDb.OleDbCommand
Public
Tampil6 As New
OleDb.OleDbCommand
Public
Tampil7 As New
OleDb.OleDbCommand
Public
Tampil8 As New
OleDb.OleDbCommand
Public
Tampil9 As New
OleDb.OleDbCommand
Public
Tampilkan As OleDb.OleDbDataReader
Public Grid
As New
OleDb.OleDbDataAdapter
Public DS As New DataSet
Public
Tabel, hasilcek As String
Public Sub koneksi()
Try
Dtbase.Close()
Dtbase.ConnectionString = "Provider=SQLOLEDB.1:Integrated
Security=SSPI;Persist Security info=False;Initial
Catalog=Penjualan_komputer;Data Source=;User ID=sa"
Dtbase.Open()
Catch
ex As Exception
MsgBox(ex.ToString())
End Try
End Sub
End Module