Scrapt Project Part 1 - 1

Buat Class Library :

1. Data koneksi :

mports System.Data
Imports System.Data.OleDb
Namespace accesdata
Public Class dataconnection
Dim Conect As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\dotnut\My Project\project 1\datascrapt.mdb;")
Public Function open() As OleDbConnection
Conect.Open()
Return Conect
End Function
Public Function close() As OleDbConnection
Conect.Close()
Return Conect
End Function
End Class
End Namespace

2. Data Acces :

Imports System.Data
Imports System.Data.OleDb
Namespace accesdata
Public Class dataacces

Public Function insert(ByVal brand As String, ByVal ket As String, ByVal hapus As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("insert into [db_brand](brandcode,brandname,hapus) values ('" & brand & "','" & ket & "','" & hapus & "')")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function insertscrapt(ByVal wono As String, ByVal itemno As String, ByVal prodno As String, ByVal datein As String, ByVal prio As String, ByVal depsend As String, ByVal qtydest As String, ByVal qtysf As String, ByVal qtyinst As String, ByVal qtyqa As String, ByVal other As String, ByVal depcause As String, ByVal remark As String, ByVal hapus As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("insert into [db_scrapt](wono,itemno,prodno,datein,prio,depsend,qtydest,qtysf,qtyinst,qtyqa,other,depcause,remark,hapus) values ('" & wono & "','" & itemno & "','" & prodno & "','" & datein & "','" & prio & "','" & depsend & "','" & qtydest & "','" & qtysf & "','" & qtyinst & "','" & qtyqa & "','" & other & "','" & depcause & "','" & remark & "','" & hapus & "')")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function insertdept(ByVal brand As String, ByVal ket As String, ByVal hapus As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("insert into [db_dept](depcode,depname,hapus) values ('" & brand & "','" & ket & "','" & hapus & "')")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function insertmaster(ByVal itemno As String, ByVal prodno As String, ByVal itemdes As String, ByVal stty As String, ByVal itty As String, ByVal procode As String, ByVal brand As String, ByVal proddet As String, ByVal model As String, ByVal color As String, ByVal xsize As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("insert into [db_item](itemno,prodno,itemdes,stty,itty,procode,brand,proddet,model,color,xsize) values ('" & itemno & "','" & prodno & "','" & itemdes & "','" & stty & "','" & itty & "','" & procode & "','" & brand & "','" & proddet & "','" & model & "','" & color & "','" & xsize & "')")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function updatescrapt(ByVal wono As String, ByVal itemno As String, ByVal prodno As String, ByVal datein As String, ByVal prio As String, ByVal depsend As String, ByVal qtydest As String, ByVal qtysf As String, ByVal qtyinst As String, ByVal qtyqa As String, ByVal other As String, ByVal depcause As String, ByVal remark As String, ByVal hapus As String)
Dim x As Integer = CInt(wono)
Dim i As Integer = CInt(itemno)
Dim a As Integer = CInt(qtydest)
Dim b As Integer = CInt(qtysf)
Dim c As Integer = CInt(qtyinst)
Dim d As Integer = CInt(qtyqa)
Dim e As Integer = CInt(other)
Try
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand

("update [db_scrapt] set itemno=" & i & ",prodno='" & prodno & "',datein='" & datein & "',prio='" & prio & "',depsend='" & depsend & "',qtydest=" & a & ",qtysf=" & b & ",qtyinst=" & c & ",qtyqa=" & d & ",other=" & e & ",depcause='" & depcause & "',remark='" & remark & "',hapus='" & hapus & "' where wono=" & x & "")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
Catch ex As Exception
MsgBox("gagal konek ke database OK" & vbCrLf & ex.Message)
End Try
End Function

Public Function update(ByVal brand1 As String, ByVal ket As String, ByVal hapus As String)
Dim x As Integer = CInt(brand1)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand

("update [db_brand] set brandname='" & ket & "',hapus='" & hapus & "' where brandcode= " & x & " ")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function updatedept(ByVal brand As String, ByVal ket As String, ByVal hapus As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand

("update [db_dept] set depname='" & ket & "',hapus='" & hapus & "' where depcode='" & brand & "'")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function updateuser(ByVal user As String, ByVal record As String, ByVal userid As String, ByVal passw As String, ByVal status As String, ByVal hapus As String)
Dim u As Integer = CInt(record)
Dim mykoneksi As New accesdata.dataconnection
'Dim objcommand As New OleDbCommand

("update [db_user2] set [password]='" & passw & "' where nama='" & user & "'")
Dim objcommand As New OleDbCommand

("update [db_user2] set record_id=" & u & ",userid='" & userid & "',[password]='" & passw & "',status='" & status & "',hapus='" & hapus & "' where username='" & user & "'")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function delete(ByVal brand As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand("delete from [db_brand] where brandcode='" & brand & "'")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function

Public Function deletedept(ByVal brand As String)
Dim mykoneksi As New accesdata.dataconnection
Dim objcommand As New OleDbCommand

("delete from [db_dept] where depcode='" & brand & "'")
objcommand.Connection = mykoneksi.open
objcommand.ExecuteNonQuery()
mykoneksi.close()
End Function
End Class
End Namespace

3. Module :

Imports System.Data
Imports System.Data.OleDb
Module _Module
Public objconnection As OleDbConnection
Public objcommand As OleDbCommand
Public objdataadapter As OleDbDataAdapter
Public objdataadapter1 As OleDbDataAdapter
Public objdatareaer As OleDbDataReader
Public objdatareaer1 As OleDbDataReader
Public objdataset As New DataSet
Public objdataset1 As New DataSet
Public objdatatable As New DataTable
Public objdatatable1 As New DataTable
Public strsql As String
Public user, pass As String
End Module

FORM INPUT SCRAPT :

source code :

Deklarasi

#Region "declar"
Dim mykoneksi As New accesdata.dataconnection
Dim myinsert As New accesdata.dataacces
Dim mytampil As New accesdata.tampil
Dim rc, x, I As Integer
Dim r As DataRow
Dim objdataset As New DataSet
Dim objdatatable As New DataTable
#End Region