Scrapt Project Part 1 - 2

Pencarian berdasarkan WO

#Region "cari wo"

Sub cariwo(ByVal cari As String, ByVal fil As String)

objdatatable.Clear()

ListView2.Refresh()

ListView2.Items.Clear()

Dim s1 As String = txtcariwo.Text

Dim s2 As Double = Integer.Parse(s1)

Try

objcommand = New OleDbCommand

("select wono,docty,itemno,prodno,itemdes,model,color,xsize,brandname,qtyord from [VI_WOMASTER]where " & fil & " = " & s2 & "")

objcommand.Connection = mykoneksi.open

objdataadapter = New OleDbDataAdapter(objcommand)

objdataadapter.Fill(objdataset, "brand")

objdatatable = objdataset.Tables("brand")

objdatareaer = objcommand.ExecuteReader

For I = 0 To objdatatable.Rows.Count - 1 objdatareaer.Read()

'Dim tgl As Date = CDate(objdatareaer.Item(4))

With ListView2.Items.Add(objdatatable.Rows(I).Item(0))

.SubItems.Add(objdatatable.Rows(I).Item(1))

.SubItems.Add(objdatatable.Rows(I).Item(2))

.SubItems.Add(objdatatable.Rows(I).Item(3))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(4)), "", objdatatable.Rows(I).Item(4))) '.SubItems.Add(objdatatable.Rows(I).Item(5))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(5)), "", objdatatable.Rows(I).Item(5)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(6)), "", objdatatable.Rows(I).Item(6))) '.SubItems.Add(objdatatable.Rows(I).Item(7))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(7)), "", objdatatable.Rows(I).Item(7))) '.SubItems.Add(objdatatable.Rows(I).Item(8))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(8)), "", objdatatable.Rows(I).Item(8))) '.SubItems.Add(objdatatable.Rows(I).Item(9))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(9)), "", objdatatable.Rows(I).Item(9))) End With

Next I

mykoneksi.close()

Catch ex As Exception

MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

End Sub

#End Region

Cari Berdasarkan Prod Wo

#Region "cariprodwo"

Sub cariprodwo(ByVal cari As String)

objdatatable.Clear()

ListView2.Refresh()

ListView2.Items.Clear()

Try

objcommand = New OleDbCommand

("select wono,docty,itemno,prodno,itemdes,model,color,xsize,brandname,qtyord from [VI_WOMASTER]where prodno like '%" & cari & "%'")

objcommand.Connection = mykoneksi.open

objdataadapter = New OleDbDataAdapter(objcommand)

objdataadapter.Fill(objdataset, "brand")

objdatatable = objdataset.Tables("brand")

objdatareaer = objcommand.ExecuteReader

For I = 0 To objdatatable.Rows.Count - 1

objdatareaer.Read()

'Dim tgl As Date = CDate(objdatareaer.Item(4))

With ListView2.Items.Add(objdatatable.Rows(I).Item(0))

.SubItems.Add(objdatatable.Rows(I).Item(1))

.SubItems.Add(objdatatable.Rows(I).Item(2))

.SubItems.Add(objdatatable.Rows(I).Item(3))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(4)), "", objdatatable.Rows(I).Item(4)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(5)), "", objdatatable.Rows(I).Item(5)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(6)), "", objdatatable.Rows(I).Item(6)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(7)), "", objdatatable.Rows(I).Item(7)))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(8)), "", objdatatable.Rows(I).Item(8))) '.SubItems.Add(objdatatable.Rows(I).Item(9))

.SubItems.Add(IIf(IsDBNull(objdatatable.Rows(I).Item(9)), "", objdatatable.Rows(I).Item(9))) End With Next I mykoneksi.close() Catch ex As Exception MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

End Sub

#End Region

Tampil Berdasarkan WO

#Region "tampilwo"

Sub tampilwo()

Try

objcommand = New OleDbCommand("select * from [db_item]")

objcommand.Connection = mykoneksi.open

objdataadapter = New OleDbDataAdapter(objcommand)

objdataadapter.Fill(objdataset, "brand")

objdatatable = objdataset.Tables("brand")

mykoneksi.close()

Catch ex As Exception

MsgBox("konek ke database gagal" & ex.Message)

mykoneksi.close()

End Try

End Sub

#End Region