Artikel Visual Basic. Powered by Blogger.

Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke Empat (Insert,Update,Delete & Select) tahap II

Tuesday, January 7, 2014

Setelah Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke Empat (Insert,Update,Delete & Select) tahap I Selesai kemudian ketahap selanjutnya yaitu Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke Empat (Insert,Update,Delete & Select) tahap II dalam hal ini adalah Selecting data dengan mnggunakan While, langkah pertama pada combobox1 tambahkan list Select While.

Select while adalah kode mysql yang dalam bahasa PHP bertugas untuk menampilkan semua row yang terdapat pada table, jika pada visual basic menggunakan Do While maka pada PHP hanya menggunakan while($bla=mysql_fetch_array($blabla)){, langkash selanjutnya masuk ke source code, hapus semua kode yang ada dan masukkan kode dibawah:
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select While" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select While" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " SET "
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " Where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = False
            TextBox5.Visible = False
            Button4.Visible = False
            Button5.Visible = False
            Button6.Visible = True
        ElseIf ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " Where id=$id2"");" & vbNewLine & "$hasil=mysql_fetch_array($result);" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = True
            TextBox5.Visible = True
            Button5.Visible = False
            Button6.Visible = True
        ElseIf ComboBox1.Text = "Select While" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & """);" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = True
            TextBox5.Visible = True
            Button5.Visible = False
            Button6.Visible = True
        End If
       
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "='$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method=''>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$" & TextBox5.Text & "=$hasil['" & TextBox5.Text & "'];" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & "<? echo $" & TextBox5.Text & "; ?><hr>" & vbNewLine
            TextBox6.Visible = False
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select While" Then
            RichTextBox1.Text = RichTextBox1.Text & "while($" & TextBox5.Text & "=mysql_fetch_array($result)){" & vbNewLine & "?>" & vbNewLine
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text & "='$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$" & TextBox5.Text & "=$hasil['" & TextBox5.Text & "'];" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & "<? echo $" & TextBox5.Text & "; ?><hr>" & vbNewLine
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select While" Then
            RichTextBox2.Text = RichTextBox2.Text & "<? echo $" & TextBox5.Text & "['" & TextBox6.Text & "']; ?>" & vbNewLine
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        ElseIf Label6.Text = "Values" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = False
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & " where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = False
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Delete" Then
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<form action='' method='POST'><input name='Submit' value='Hapus' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = False
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "}" & vbNewLine & "?>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = False
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select While" Then
            RichTextBox2.Text = RichTextBox2.Text & "<?" & vbNewLine & "}" & vbNewLine & "?>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = False
        End If
    End Sub

End Class
Posted by Unknown at 8:05 PM 0 comments
Labels: , , , , ,

Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke Empat (Insert,Update,Delete & Select) tahap I

Dalam bahasa PHP ada berbagai macam cara selecting data dari database, untuk pertama kalinya dalam Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke dua (Insert,Update,Delete & Select) tahap I ini adalah lebih dicondongkan kepada selecting data menggunakan PHP code yang tidak menggunakan While tujuannya adalah agar data yang keluar sesuai dengan metode GET.

Setelah Bagian 1, 2 dan 3 sudah kita pelajari sekarang saatnya menyempurnakan software PHP MySQL Script creator tahap pertama, setelah membuat kolom yang seperti pada bagian 3 maka langkah selanjutnya tinggal masuk kehalaman source code hapus semua kode yang sudah ada dan ganti dengan kode dibawah:
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & vbNewLine & "$result=mysql_query(" & """Select * from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " SET "
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " Where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = False
            TextBox5.Visible = False
            Button4.Visible = False
            Button5.Visible = False
            Button6.Visible = True
        ElseIf ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " Where id=$id2"");" & vbNewLine & "$hasil=mysql_fetch_array($result);" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = True
            TextBox5.Visible = True
            Button5.Visible = False
            Button6.Visible = True
        End If
       
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "='$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method=''>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$" & TextBox5.Text & "=$hasil['" & TextBox5.Text & "'];" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & "<? echo $" & TextBox5.Text & "; ?><hr>" & vbNewLine
            TextBox6.Visible = False
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text & "='$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Select" Then
            RichTextBox1.Text = RichTextBox1.Text & "$" & TextBox5.Text & "=$hasil['" & TextBox5.Text & "'];" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & "<? echo $" & TextBox5.Text & "; ?><hr>" & vbNewLine
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = True
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & " where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Delete") Then
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<form action='' method='POST'><input name='Submit' value='Hapus' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Select") Then
            RichTextBox1.Text = RichTextBox1.Text & "}" & vbNewLine & "?>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
Posted by Unknown at 6:58 PM 0 comments
Labels: , , , ,

Cara memasang icon pada visual basic 6

Tuesday, December 17, 2013

Banyak sekali orang yang bingung tentang Cara memasang icon pada visual basic 6 karena tidak semua file .ico support untuk dimasukkan pada vb6, ada beberapa persyaratan untuk icon visual basic 6 yaitu:
  • File icon jangan lebih dari 100kb
  • Ukuran icon harus standard biasanya icon yang dibuat melalui online tidak support
Setelah 2 syarat tadi terpenuhi lihat gambar dibawah ini:



Ukuran icon lebih dari 100kb maka jika diklik ok akan keluar error seperti gambar dibawah ini:


Lalu lihat gambar dibawah ini:


Ukuran icon hanya 2.18kb maka jika diklik akan berhasil menjadi icon form lihat gambar dibawah :

Tapi ketika form di make project1.exe icon pada folder masih tetap menggunakan icon default dari visual basic 6 bagaimana cara mengatasinya? untuk mengatasi permasalahan yang sangat sederhana ini cukup klik kanan Project1.vbp dibagian kanan atas-->Project1 Properties-->Make --> icon--> pilih form1.

Posted by Unknown at 11:47 AM 1 comments
Labels: , ,

Video Tutorial visual basic 6 dan visual basic 2008

Monday, December 16, 2013

Bagi anda yang menginginkan Video Tutorial visual basic 6 dan visual basic 2008 dari berbagai macam jenis aplikasi yang dibuat oleh saya dapat dilihat di channel youtube saya, video tutorial ini dibuat untuk mempermudah anda dalam mempelajari bahasa pemprograman visual basic baik visual basic 6 ataupun versi yang setelahnya.

Dalam Video Tutorial visual basic 6 dan visual basic 2008 yang saya buat mungkin belum pernah ada yang mempublish meskipun dengan judul yang sama saya yakin kode yang saya gunakan tidak sama dengan yang lain, Video Tutorial visual basic 6 dan visual basic 2008 yang saya masukkan ke youtube akan selalu update sehingga anda tidak kebingungan lagi ketika mencari pelajaran tentang pemprograman menggunakan visual basic.

Video Tutorial visual basic 6 dan visual basic 2008 yang pertama kali di upload adalah tutorial database ms access dengan visual basic 6 ketika database sudah selesai selanjutnya adalah pemprograman lain yang menggunakan visual basic 6 baik yang berhubungan dengan database ataupun yang tidak menggunakan database.

Anda dapat melihat semua video tutorial saya di channel saya yang di youtube yaitu http://www.youtube.com/user/ArtikelVisualBasic/videos
Copy link diatas dan pastekan pada browser kesayangan anda dan make bookmark jika memang anda benar-benar membutuhkan tutorial tentang visual basic, karena saya akan mencoba menerangkan visual basic secara gamblang dan terbuka tanpa ada yang ditutup-tutupi.
Posted by Unknown at 11:01 AM 0 comments
Labels: , , , , , , , , , , , , , , , , ,

Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke tiga (Insert, Update & Delete)

Setelah bisa Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke dua selanjutnya sekarang membahas bagaimana membuat PHP Mysql Script creator untuk deleting data dari database menggunakan kode PHP, kali ini akan lebih simple karena command sql untuk deleting data hanya seperti ini "DELETE FROM table WHERE id=$id2" dan saya akan membuat program untuk menampilkan kode php dan HTML nya sekalian.

Untuk Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke tiga (Insert, Update & Delete) ini jika sudah diawali dari bagian pertama makaakan lebih mudah karena hanya menghapus kode yang sudah dibuat dan diganti dengan kode yang nantinya akan saya bagikan dibawah.

Untuk menyingkat waktu saya hanya akan memberikan kode berikutnya untuk pembuatan program php creator ini karena dari bagian pertama dan bagian ke dua sudah diterangkan caranya cara ketiga sama seperti cara kedua yaitu hapus semua kode yang sudah ada ganti dengan kode dibawah:
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Delete from "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " SET "
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Delete" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " Where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
            TextBox4.Visible = False
            TextBox5.Visible = False
            Button4.Visible = False
            Button5.Visible = False
            Button6.Visible = True
        End If
       
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "='$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method=''>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text & "='$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = True
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & " where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Delete") Then
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<form action='' method='POST'><input name='Submit' value='Hapus' type='submit'></form>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
Posted by Unknown at 6:28 AM 0 comments
Labels: , , , ,

Membuat program cek koneksi menggunakan visual basic 2008/ vb.net

Awalnya difacebook ada seseorang yang bertanya bagaimana membuat Membuat program cek koneksi menggunakan visual basic dan saya menjadi tertarik untuk membuat artikel bagaimana membuat cek koneksi menggunakan visual basic 2008/ vb.net sebenarnya caranya sangat mudah sekali dan tidak perlu terlalu rumit.

Untuk langkah awal dalam Membuat program cek koneksi menggunakan visual basic 2008/ vb.net  buatlah satu form dengan komponen 2 label, label pertama ganti isi text menjadi Status dan label ke 2 menjadi ... seperti gambar dibawah:
 
Selanjutnya klik 2 kali form yang sudah di buat, hapus semua kode dan masukkan kode dibawah:
Public Class Form1
    Dim WithEvents web As New WebBrowser
    Dim stri As String
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If My.Computer.Network.IsAvailable Then
            web.Navigate("http://shareany.net/ip.html")

        Else
            Label2.Text = "Tidak Konak dari: " & My.Computer.Name
        End If
    End Sub

    Private Sub web_DocumentCompleted(ByVal sender As Object, ByVal e As System.Windows.Forms.WebBrowserDocumentCompletedEventArgs) Handles web.DocumentCompleted
        stri = web.Document.All("ip").InnerHtml
        Label2.Text = "Konak" & vbNewLine & "IP: " & stri.Replace("<BR>", vbNewLine)

    End Sub
End Class
Maka ketika di jalankan programnya akan menghasilkan seperti gambar dibawah:
 
 

Posted by Unknown at 1:33 AM 0 comments
Labels: , , ,

Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian ke dua (Insert & Update)

Sunday, December 15, 2013

Setelah Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian pertama selesai kemudian saya akan melanjutkan pembuatan program PHP Mysql script creator bagian kedua yaitu akan membahas tentang membuat script mysql Insert dan update dalam satu program.


 
Jika sudah seperti gambar diatas klik 2 kali formnya, hapus semua kode yang ada dan masukkan kode dibawah ini:
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf Not RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = "<?php" & vbNewLine & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        ElseIf RichTextBox1.Text.Contains("mysql_connect") And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & "$id2=$_GET['id'];" & vbNewLine & " if (isset($_GET['id'])){" & vbNewLine & "if isset($_POST['Submit'])){" & vbNewLine & "mysql_query(" & """Update "
            TextBox5.Visible = True
            Button3.Visible = True
            TextBox6.Visible = False
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        ElseIf ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & " " & TextBox5.Text & " SET "
            Button3.Visible = False
            Label6.Text = "Kolom"
            Button4.Visible = True
        End If
       
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" And ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        ElseIf Label6.Text = "Kolom" And ComboBox1.Text = "Update" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "='$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method=''>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text & "='$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        ElseIf Label6.Text = "Values" And RichTextBox1.Text.Contains("Insert") Then
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
            Button6.Visible = False
            TextBox6.Visible = False
            TextBox5.Visible = False
            TextBox4.Visible = True
            Button5.Visible = False
            Button4.Visible = False
            Button3.Visible = True
        ElseIf Label6.Text = "Kolom" And RichTextBox1.Text.Contains("Update") Then
            RichTextBox1.Text = RichTextBox1.Text & " where id=$id2"");" & vbNewLine & "}" & vbNewLine & "}" & vbNewLine & "?>"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class
Maka ketika metode yang dipilih adalah Insert secara otomatis langkah selanjutnya adalah pembuatan script php mysql yang berhubungan dengan inserting data dan ketika metode yang dipilih adalah Update maka kode akan menjalankan pembuatan php mysql script yang berhubungan dengan updating data.
 
Posted by Unknown at 8:46 AM 0 comments
Labels: , , , ,

Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net bagian pertama

Friday, December 13, 2013

Pada awalnya ide untuk Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net datang karena saya sedang mengajar kursus pembuatan website berbasis PHP, namun ketika saya ajarkan kepada para murid, mereka sangat kesusahan dalam pembelajaran membuat CMS sendiri, akhirnya saya punya inisiatif untuk membuat sebuah aplikasi atau program menggunakan visual basic 2008 untuk mempermudah pembuatan cms bagi peserta kursus.

Dan kali ini saya akan berbagi cara Membuat PHP MySQL Script creator menggunakan visual basic 2008 / vb.net , proses pertama buatlah satu form dengan komponen sebagai berikut:
  • 2 Richtexbox
  • 3 Groupbox
  • 6 label
  • 6 textbox untuk textbox4 sampai textbox6 jadikan visible menjadi false semua dan jadikan textbox4 hingga textbox6 saling tumpang
  • 6 button untuk button3 hingga buttin6 jadikan visible menjadi false semua dan jadikan button3 sampai button5 saling tumpang lihat gambar dibawah:
 
Langkah selanjutnya klik 2 kali form tersebut hapus semua kode dan masukkan kode dibawah ini:
Public Class Form1

    Private Sub RichTextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RichTextBox1.TextChanged
        If RichTextBox1.Text = "" Then
            RichTextBox1.Text = "<?php" & vbNewLine
        End If
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        RichTextBox1.Text = RichTextBox1.Text & vbNewLine & "$konak=mysql_connect('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "');" & vbNewLine
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        RichTextBox1.Text = RichTextBox1.Text & "mysql_select_db('" & TextBox4.Text & "',$konak);" & vbNewLine
    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
        If ComboBox1.Text = "Insert" Then
            RichTextBox1.Text = RichTextBox1.Text & "if isset($POST['Submit'])){" & vbNewLine & "mysql_query(" & """insert into "
            TextBox5.Visible = True
            Button3.Visible = True
        End If
    End Sub


    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text & "("
        Button3.Visible = False
        Label6.Text = "Kolom"
        Button4.Visible = True
    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & TextBox5.Text
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & "'$_POST[" & TextBox5.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & "<form action='' method='POST'>" & vbNewLine & "<input name='" & TextBox5.Text & "'>"
            TextBox5.Visible = False
            TextBox6.Visible = True
            Button4.Visible = False
            Button5.Visible = True
            Button6.Visible = True
        End If
    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & "," & TextBox6.Text
        Else
            RichTextBox1.Text = RichTextBox1.Text & ",'$_POST[" & TextBox6.Text & "]'"
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='" & TextBox6.Text & "'>"
        End If
    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
        If Label6.Text = "Kolom" Then
            RichTextBox1.Text = RichTextBox1.Text & ") values ("
            Label6.Text = "Values"
            TextBox6.Visible = False
            Button5.Visible = False
            TextBox5.Visible = True
            Button4.Visible = True
        Else
            RichTextBox1.Text = RichTextBox1.Text & ")" & """);" & vbNewLine & "echo 'Sukses';" & vbNewLine & "}" & vbNewLine & "?>" & vbNewLine
            RichTextBox2.Text = RichTextBox2.Text & vbNewLine & "<input name='Submit' value='Masuk' type='submit'>"
            RichTextBox1.Text = RichTextBox1.Text & RichTextBox2.Text
            RichTextBox2.Clear()
        End If
    End Sub
End Class
Maka ketika di run akan menghasilkan seperti gambar dibawah:
 
Gambar Pada saat proses pembuatan script mysql insert langsung terditeski kode HTMLnya.

Gambar setelah selesai proses pembuatan script PHP MySQL insert data.

 
 
Posted by Unknown at 3:27 PM 0 comments
Labels: , , , , ,

Komentar Terbaru

 
Support : Creating Website | Johny Template | Mas Template
Copyright © 2011. artikel visual basic - All Rights Reserved
Template Created by Creating Website Inspired by Sportapolis Shape5.com
Proudly powered by Blogger