Insert field ke Oracle dari Listview VB 6.0 (bisa buat export antar database) Maret 2, 2009
Posted by arruhio in Insert Field Ke Oracle.3 comments
Dim i, j As Integer
Dim sqlInput
Dim temField, numElement, fieldResult, tempResult As String
For i = 1 To Me.ListView1.ListItems.Count
If Me.ListView1.ListItems(i).Checked = True Then
sqlInput = “insert into latihan_tmp (nim,nama,alamat) values ( “
sqlInput = sqlInput & “‘” & Me.ListView1.ListItems(i) & “‘, “
sqlInput = sqlInput & “‘” & Me.ListView1.ListItems(i).SubItems(1) & “‘, “
sqlInput = sqlInput & “‘” & Me.ListView1.ListItems(i).SubItems(2) & “‘)”
conn.Execute sqlInput
End If
Next
End Sub
**Jika dikebangkan script ini bisa dijadikan alat untuk ekpsor data dari oracle ke database lain (seperti SQL server dan MYSQl) ini pernah saya coba. Selamat mencoba
Menampilkan Data Recordset di List View pada VB 6.0 database : Oracle Maret 2, 2009
Posted by arruhio in Manampilkan Record di listView VB 6.0 dari oracle.add a comment
Persiapan:
1. Buat Sebuah Project baru di VB 6.0
2. Tambahkan sebuah Form
3. Pada Form tersebut tambahkan satu command Button dan List View

untuk menampilkan List View, Klik component (pada toolbox)>>Microsoft Windows Common Controls 6.0 (SP6)
4. Tambahkan Satu buah Modul
Langkah 1: Tuis Script ini pada Modul yang tadi
Public cnORA As New ADODB.Connection
Public rsORA As New ADODB.Recordset
Sub main()
‘Koneksi ke database Oracle
‘Atur Tnsname terlebih dahulu, sebelum menuliskan script di bawah ini:
cnORA.Open “Provider=MSDAORA.1;User ID=sesuaikan;Password=sesuaikan;Data Source=tnsname;Persist Security Info=False”
rsORA.ActiveConnection = cnORA
rsORA.CursorLocation = adUseClient
rsORA.CursorType = adOpenKeyset
rsORA.LockType = adLockOptimistic
Form1.Show
End Sub
Langkah 2 : Pada Form1 tambahkan script berikut :
Private Sub Command1_Click()
Dim SQLora As String
Dim i As Integer
Dim itm As ListItem
‘On Error Resume Next
SQLora = “select old_cust_id,customer_name,invoice_number, “
SQLora = SQLora & ” total_invoice,tax_amount from “
SQLora = SQLora & “dm_fss_customers,dm_fss_invoices where “
SQLora = SQLora & “dm_fss_customers.id=dm_fss_invoices.fc_id and “
SQLora = SQLora & “dm_fss_invoices.year=’2009′ and “
SQLora = SQLora & “dm_fss_invoices.month=’01′”
rsORA.Open SQLora, cnORA, adOpenKeyset, adLockOptimistic
‘
‘ Do While Not rsORA.EOF
‘ Me.Combo1.AddItem rsORA.Fields(“year”) & “-” & rsORA.Fields(“month”)
‘ rsORA.MoveNext
‘ Loop
Do While Not rsORA.EOF
Set itm = Me.ListView1.ListItems.Add(, , rsORA(“old_cust_id”))
itm.SubItems(1) = rsORA.Fields(“customer_name”)
itm.SubItems(2) = rsORA.Fields(“invoice_number”)
itm.SubItems(3) = rsORA.Fields(“total_invoice”)
itm.SubItems(4) = rsORA.Fields(“tax_amount”)
rsORA.MoveNext
Loop
End Sub

Query menampilkan Data/Field berdasarkan selisih/rentang tanggal SQL server Maret 2, 2009
Posted by arruhio in SQL Server.1 comment so far
Xample : Tabel Siswa
NIS | Nama_Siswa | Alamat | tanggal_masuk
001 ocon Cikarang 12/31/2008
002 dODOL Bekasi 1/1/2009
003 Dude Bekasi 12/30/2008
004 Moncong Cikarang 2/1/2009
005 rere nhghgh 3/1/2009
006 fera hghgh 3/2/2009
Menampilkan nama_siswa yang masuk 30 hari dari sekarang (tanggal sekarang 02 Maret 2009) ke belakang
Select nama_siswa from siswa where datediff(day,tanggal_masuk,getdate())<30
Maka hasilnya adalah :
Nama_Siswa|
Moncong
rere
fera
Menmpilkan nama_siswa yang masuk 1 bulan dari sekarang
select nama_siswa from siswa where datediff(month,tanggl_masuk,getdate())<2
maka hasilnya adalah :
Nama_Siswa|
rere
fera
Membuat session di PHP dengan tabel user Februari 17, 2009
Posted by arruhio in Uncategorized.2 comments
1. Buat form login terlebih dahulu, dimana action nya di arahkan ke file dibawah ini (actionlogin.php)
2. Buat file actionlogin.php, seperti skrip dibawah ini
<?php
//Start session
session_start();
//Array to store validation errors
$errmsg_arr = array();
//Validation error flag
$errflag = false;
//connect to mysql
mysql_connect(“localhost”,”root”,”");
//select database
mysql_select_db(“saranabangunan”) or die (“Database not Found”);
//Function to sanitize values received from the form. Prevents SQL injection
function clean($str) {
$str = @trim($str);
if(get_magic_quotes_gpc()) {
$str = stripslashes($str);
}
return mysql_real_escape_string($str);
}
//Sanitize the POST values
$login = clean($_GET['txt_user2']);
$password = clean($_GET['txt_pwd2']);
//Input Validations
if($login == ”) {
$errmsg_arr[] = ‘Login ID missing’;
$errflag = true;
}
if($password == ”) {
$errmsg_arr[] = ‘Password missing’;
$errflag = true;
}
//If there are input validations, redirect back to the login form
if($errflag) {
$_SESSION['ERRMSG_ARR'] = $errmsg_arr;
session_write_close();
header(“location:index.php”);
exit();
}
//Get query
$qry=”select * from sys_user where username=’”.$_GET[txt_user2].”‘ and password=’”.$_GET[txt_pwd2].”‘”;
$result=mysql_query($qry);
//Check whether the query was successful or not
if(mysql_num_rows($result) == 1)
{
//Login Successful
//session_regenerate_id();
$user = mysql_fetch_assoc($result);
$_SESSION['SESS_USER_ID'] = $user['userid'];
$_SESSION['SESS_USER_NAME'] = $user['username'];
$_SESSION['SESS_USER_PSWD'] = $user['password'];
$_SESSION['SESS_USER_LEVEL'] = $user['level'];
session_write_close();
header(“location:form_menu_utama.php”);
}
else
{
header(“location:index.php”);
}
?>
catatan:
1. simpan file tersebut dengan nama actionlogin.php
2. session harus ditulis dibagian paling atas, tidak boleh setelah html ataupun string laennya (pokoknya harus paling atas)
:D
silahkan mencoba
Menampilkan field di dalam list/menu di PHP Februari 17, 2009
Posted by arruhio in Web.add a comment
// Koneksi ke mysql
include(“connection.php”);
// Pilih Database
mysql_select_db(“saranabangunan”) or die (“database tidak ditemukan”);
//Perintah sql menampilkan kode barang
$code=”select kdbarang,namabarang from barang order by kdbarang”;
$tampil=mysql_query($code);
<select name=”cmbKdBarang” id=”cmbKdBarang”>
<option>- -Kode Barang- -</option>
>
<?php //tampilkan data kode barang
while($dapat=mysql_fetch_row($tampil))
{
echo (“<option value =’”.$dapat[0].”‘>”.$dapat[0].”-”.$dapat[1].”</option><br>”);
}
?>
</select>
Hanya Menerima Input Hanya Angka Visual Basic 6.0 (VB 6.0) Oktober 23, 2008
Posted by arruhio in Input Hanya Angka.2 comments
Private sub txtnumeric_change()
If isnumeric(me.txtangka.text)=false then
msgbox “Input Numeric Only”,vbCritical,”NUMERIC”
end if
end sub
Export/Transfer Recordset to/ke Excel with VB 6.0 Oktober 23, 2008
Posted by arruhio in Export to Excel.add a comment
Dim openE As Object
Dim WS As Object
Dim WB As Object
Dim SQL As String
Dim rsE As New ADODB.Recordset
Dim kolom As Integer
Dim baris As Long
Private Sub Command1_Click()
If rsE.State = 1 Then
rsE.Close
End If
Set openE = CreateObject(“Excel.Application”)
Set WB = openE.Workbooks.Open(App.Path & “\data12.xls”)
‘Set WB = openE.Workbooks.Add
Set WS = WB.Worksheets(1)
If Me.txtAccount.Text = “” Or Me.txtYear.Text = “” Then
MsgBox “Incorect Column Account Number”, vbCritical, “Ag”
Else
SQL = “select DISTINCT a.ORMSTRNM,b.TRXDATE,a.ORDOCNUM, “
SQL = SQL & ” a.DSCRIPTN,a.ORDBTAMT,a.ORCRDAMT,b.CURNCYID from “
SQL = SQL & ” GL10001 a, GL10000 b, GL00105 c, GL00100 d Where “
SQL = SQL & ” a.JRNENTRY = b.JRNENTRY and a.ACTINDX = c.ACTINDX and d.ACTDESCR “
SQL = SQL & ” like ‘Adv%’ and c.ACTNUMST = ‘” & Me.txtAccount.Text & “‘ and “
SQL = SQL & ” month(b.TRXDATE)=’” & Me.txtBulan.Text & “‘ and “
SQL = SQL & ” year(b.TRXDATE) <= ‘” & Me.txtYear.Text & “‘ order by a.ORMSTRNM asc;”
rsE.Open SQL, conn, adOpenKeyset, adLockOptimistic
If rsE.RecordCount = 0 Then
MsgBox “Data not found”, vbInformation, “Aging BS”
Else
i = 9
j = 1
Do While Not rsE.EOF
‘Get data from SQL server
WS.Cells(i, 1) = j
WS.Cells(i, 2) = rsE.Fields(“ORMSTRNM”)
WS.Cells(i, 3) = rsE.Fields(“TRXDATE”)
WS.Cells(i, 4) = rsE.Fields(“ORDOCNUM”)
WS.Cells(i, 5) = rsE.Fields(“DSCRIPTN”)
WS.Cells(i, 6) = Str(rsE.Fields(“ORDBTAMT”))
WS.Cells(i, 7) = Str(rsE.Fields(“ORCRDAMT”))
WS.Cells(i, 12) = rsE.Fields(“CURNCYID”)
rsE.MoveNext
‘Make border in microsoft excel
WS.Cells(i, 1).Borders.LineStyle = True
WS.Cells(i, 2).Borders.LineStyle = True
WS.Cells(i, 3).Borders.LineStyle = True
WS.Cells(i, 4).Borders.LineStyle = True
WS.Cells(i, 5).Borders.LineStyle = True
WS.Cells(i, 6).Borders.LineStyle = True
WS.Cells(i, 12).Borders.LineStyle = True
WS.Cells(i, 8).Borders.LineStyle = True
i = i + 1
j = j + 1
Loop
openE.Visible = True
Set openE = Nothing
Set WB = Nothing
Set WS = Nothing
End If
End If
End Sub
RUU Pornografi Oktober 17, 2008
Posted by arruhio in Umum.add a comment
Assalamu’alikum Warohmatullohi wabarookaatuh
Bismillahirrohmannirrohim
Puja dan puji syukur mari kita panjatkan atas kehadirat Illahi Robbi, Allah Subhaanahuwata’ala yang atas Maha KehendakNya kita mampu saling share mengenai beberapa hal. Tak lupa sholawat serta salam semoga terlimpah curah pada junjungan kita Nabi Allah Muhammad Rosulullah selellohi ‘alaihi wassalam beserta keluarga dan para sahabatnya sebagai pembawa lentera kebenaran hakiki untuk semua makhluk di jagat raya.
Wahai sodara-sodara dan sahabatku yang baik hati, saat ini di tengah-tengah krisis ekonomi global yang sedang melanda hampir seluruh negara, tak terkecuali Indonesia dengan ditandai merosotnya nilai rupiah sampai 10.000 ribu rupiah per-US dollar, dalam kondisi seperti ini kita pun sedang menghadapi sesuatu yang cukup fundamental di negeri Indonesia tercinta ini, yaitu mengenai pembahasan RUU pornografi oleh Dewan kehormatan DPR RI.
Saya, sebagai salah satu rakyat Indonesia sepertinya sudah cukup sering mendengar masalah ini yang tak kunjung selesai, bagaimana tidak?setiap kali RUU ini sedang tahap proses pengodogan, maka sejak itu pula masyarakat Indonesia mulai membahas masalah ini, mulai dari orang-orang di warung kopi sampai karyawan di gedung pencakar langit, mereka mengeluarkan argument yang beragam dengan dalih berbeda-beda, namun semua itu akan bermuara pada dua kelompok yang sangat akrab di memori kita, yaitu Pro dan Kontra.
Sahabatku yang bermurah hati, apabila kita renungi bersama semua pasti sepakat, bahwa sesuatu yang berbau pornografi dan hal-hal yang berkaitan dengan pornografi itu adalah sebuah kesalahan, akan tetapi kita semua, sebagai orang Indonesia dan makhluk ciptaan Alloh subhanahuwata’ala pasti akan memiliki pandangan dan persepsi yang tak serupa, mengenai apa itu pornografi dan hal-hal yang berkaitan dengan pornografi??cara pandang ini yang sebetulnya membuat kita terbagi dalam dua golongan, yaitu pro dan kontra. Bahkan, golongan yang kontra berpendapat, jika RUU Pornografi ini disetujui akan terjadi disintegrasi bangsa, sungguh sebuah pendapat yang sangat mengiris hati, apakah mereka yang berpendapat demikian tidak merenungkan, bahwa para pahlwan bangsa ini merebut kemerdekaan dengan cucuran darah dan hempasan nyawa?apakah pendapat itu benar-benar datang dari hati dan rasio yang sedang sehat?
Wahai sodara-sodaraku, mari kita semua merenungkan apakah betul, kita ini mesti berpisah negara dengan sebab masalah ini?padahal kalo kita cermati secara seksama, kita tahu bahwa sekarang ini sudah begitu banyak hal-hal yang dirancang sedemikian rupa, sehingga menghasilkan sesuatu yang berbau pornografi dan pornoaksi dan kita pun tahu, itu akan sangat berbahaya apabila menyentuh anak-anak kita, adik-adik kita dan anak-anak sodara kita, walaupun kita mendampingi anak-anak sampai sangat dekat dan sering, namun saya yakin, itu akan sangat sulit, karena orang-orang dewasa sering sibuk. Di negeri tercinta ini yang katanya berbudaya timur yang kental, sekarang ini sudah tidak akan kaget lagi, apabila mendengar ada anak kecil yang mengalami pelecehan seksual atau pencabulan, apakah hati sodara tidak merasa miris dengan kejadian ini ?Dan kalau anda selidiki, kenapa orang sampai begitu tega melakukan ini sama anak-anak, bahkan kadang-kadang yang melakukan pelecehan atau pencabulan itu adalah anak-anak, penyebabnya adalah begitu banyaknya orang-orang yang mengemas sesuatu sehingga menjadi porno, yang tidak pantas dilihat oleh siapa pun, tetapi orang-orang yang mengemas hal ini tidak pernah merasa bahwa itu adalah sebuah pornogrfi dan pornoaksi.
Kepada sodara-sodaraku yang termasuk dalam bagian pro dengan RUU ini, saya adalah bagian dari anda semua dan bagi orang-orang yang ada dalam bagian kontra saya tidak pernah memusuhi anda, karena bagaimana pun kita adalah bagian dari republik ini. Kepada sodara-sodaraku yang pro, walau pun nantinya RUU ini tidak jadi disyahkan maka kita jangan berkecil hati, karena semua energi yang ada dalam diri anda yang begitu kuat dapat diwujudkan dengan cara yang lebih arif, yaitu dengan menjaga anak-anak kita dari hal-hal yang merusak hati dan pikiran mereka yang salah satunya adalah Pornografi dan Pornoaksi serta bagian-bagian nya, baik yang bersentuhan secara langsung mau pun tidak. Ingat seloga Bang Napi dalam sebuah acara stasiun televisi,”Kejahatan bukan hanya karena ada niat pelaku, tetapi karena ada kesempatan”, jadi seharusnya kita jangan membuat penyebab kesempatan itu ada.
Dan kemudian bagi sodara-sodaraku, terutama yang seiman bahwa sesungguhnya kita akan memiliki persepsi yang sama mengenai masalah ini, apabila kita merujuk, berpatokan dan berpegang kepada Al-Qura’an dan As-Sunah. Dan bagi sodara-sodaraku se-Indonesia mari kita merenung, akan menjadi apa negeri ini kedepan apabila generasi muda sudah terlelap dalam sesuatu yang merusak akal, salah satunya adalah pornografi dan pornoaksi.
Wassalamu’alaiku warohmatullohi wabarookaatuh.
by Ar-Ruhuio
Membuat Schedule Task di Windows 2000 Oktober 16, 2008
Posted by arruhio in Group OS.add a comment
Maaf kawan masih dalam proses
:D
Pengunaan Myob Accounting Oktober 16, 2008
Posted by arruhio in Accounting.add a comment
Tulisan sedang dalam proses, jadi dimohon bersabar
:D