Visual Basic – MySQL – VSFlexGrid – Crystal Report

Setelah database beserta tablenya dibuat, berikutnya kita siapkan modul entrynya menggunakan aplikasi VB. Berikut tampilan dan listing programnya

 Lakukan langkah Berikut :

1. Buat satu Modul (namakan global.bas)
2. Isikan modul tersebut dengan Syntak2 Berikut :

Public objCnn As New ADODB.Connection
Public objcmd As New ADODB.Command
Public objRst As New ADODB.Recordset
Public USRText As String
Public PWDText As String
Public PortText As String
Public strconnect As String
Public ServerAddress As String
Public DatabaseName As String
Sub SQLConnection()
    ServerAddress = “localhost”
    USRText = “root”
    PWDText = “”
    DatabaseName = “market”
    PortText = “”
    Set objCnn = Nothing
    strconnect = “Provider=MSDASQL.1;Password=;Persist Security Info=True;User ID=;Extended Properties=” & Chr$(34) & “DRIVER={MySQL ODBC 3.51 Driver};DESC=;DATABASE=” & DatabaseName & “;SERVER=” & ServerAddress & “;UID=” & USRText & “;PASSWORD=” & PWDText & “;PORT=” & PortText & “;OPTION=16387;STMT=;” & Chr$(34)
    objCnn.CursorLocation = adUseClient
    objCnn.ConnectionTimeout = 0
    objCnn.Open strconnect
End Sub

Sub SQLDisconnection()
    Set objRst = Nothing
    Set objcmd = Nothing
    objCnn.Close
End Sub

2. Buat Form seperti Dibawah ini

3. Pada tombol Save isikan syntak berikut (perhatikan pada penamaan objek Text Box dan Tanggal !!) :

 Select Case MsgBox(“Do you want to save the record?”, vbQuestion + vbYesNoCancel, “Confirmation”)
                Case vbYes
                   ‘ If Not bValidate Then Exit Sub
                 
                    Call SQLConnection
                    strSQL = “INSERT INTO marketdetail (ID, Comodity, Quantity, Negara, Dest, Tanggal, CW, Berat) ” & _
                        “VALUES (‘” + Trim(Me.TxtName.Item(0).Text) + “‘ , ‘” + Trim(Me.TxtName.Item(1).Text) + “‘, ” & Me.TxtName.Item(2).Text & “,” & _
                                ” ‘” + Trim(Me.TxtName.Item(3).Text) + “‘ , ‘” + Trim(Me.TxtName.Item(4).Text) + “‘, ‘” + Format(Me.TxtDate(0).Value, “mm/dd/yy”) + “‘, ‘” & Me.TxtName.Item(5).Text & “‘, ‘” & Me.TxtName.Item(6).Text & “‘)”
                    objCnn.Execute (strSQL)
                    Call SQLDisconnection
             Case vbNo
                   msgbox “Gak Jadi !!”
            Case vbCancel
                   Msgbox “Batal”
            End Select