3. Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

3. Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

Memasukkan Rumus yang ada pada Ms. Access ke Visual Basic 6.0

Hasilnya:

Setelah di jalankan dan di simpan

Cara Membuatnya:

1. Sebelum kita maen di Visual Basic kita akan membuat sebuah dokument Ms. Access dimana kita akan menghubungkan Ms. Acceess tersebut dengan Visual Basic. Buka dokument Ms. Access Selanjut nya Create, Table dan Change nama tabel menjadi TBL_NILAI_MAHASISWA, kemudian isikan seperti di bawah ini.

2. Selanjutnya kita akan menambah Query, untuk rumus lihat dan simpat yaitu dengan cara pilih pada Menu Toolbar Create kemudian pilih Create Query

3. Ini adalah rumus yang ada pada Query

{SELECT NAMA_MAHASISWA, NIM, NILAI_HARIAN_ASLI, NILAI_HARIAN_ASLI*30/100 AS NILAI_HARIAN, NILAI_UTS_ASLI, NILAI_UTS_ASLI*30/100 AS NILAI_UTS, NILAI_UAS_ASLI, NILAI_UAS_ASLI*40/100 AS NILAI_UAS, NILAI_HARIAN+NILAI_UTS+NILAI_UAS AS NILAI_AKHIR, IIF(NILAI_AKHIR>80,'A',IIF(NILAI_AKHIR>70,'AB',IIF(NILAI_AKHIR>65,'B',IIF(NILAI_AKHIR>60,'BC',IIF(NILAI_AKHIR>55,'C',IIF(NILAI_AKHIR>41,'D',IIF(NILAI_AKHIR<40,'E'))))))) AS NILAI_HURUF, IIF(NILAI_HURUF="A","DENGAN_PUJIAN",IIF(NILAI_HURUF='AB',"SANGAT_BAIK",IIF(NILAI_HURUF='B',"BAIK",IIF(NILAI_HURUF='BC',"CUKUP_BAIK",IIF(NILAI_HURUF='C',"CUKUP",IIF(NILAI_HURUF='D',"KURANG",IIF(NILAI_HURUF='E',"KURANG_SEKALI"))))))) AS KETERANGAN

FROM TBL_NILAI_MAHASISWA;}

4. Setelah di Run, dan masukkan data sesuai keinginan apakah sudah benar atau belum.

5. Selanjutnya kita akan membuka Project Visual Basic dan menghubungkannya dan memasukkan Rumus yang ada pada Ms. Access Form Visual Basic, sebelum itu kita akan membuat tabel sesuai yang ada pada Ms. Access seperti di bawah ini.

Ket:

Simpan, Lihat Data, Bersih, Exit = Cummandbutton

6. Selanjutnya kita akan memasukkan rumus pada Textbox adapun rumusnya yaitu:

Private Sub tasli1_Change()

tpersen1.Text = Val(tasli1.Text) * (3 / 10) =  Rumus untuk mencari Nilai_Harian 30%

End Sub

Ket: tasli1 = Textbox Yang Ada Pada Nilai_Harian, Asli

Private Sub tasli2_Change()

tpersen2.Text = Val(tasli2.Text) * (3 / 10) = Rumus untuk mencari Nilai_UTS 30%

End Sub

Ket: tasli2 = Textbox Yang Ada Pada Nilai_UTS, Asli

Private Sub tasli3_Change()

tpersen3.Text = Val(tasli3.Text) * (4 / 10) = Rumus untuk mencari Nilai_UAS 40%

takhir.Text = Val(tpersen1.Text)+Val(tpersen2.Text)+Val(tpersen3.Text) = Nilai_Akhir

If nilai = Val(takhir.Text < 80 And 100) Then

tangka.Text = "A"

tketerangan.Text = "Istimewa"

ElseIf nilai = Val(takhir.Text < 71 And 80) Then

tangka.Text = "AB"

tketerangan.Text = "Baik Sekali"

ElseIf nilai = Val(takhir.Text < 66 And 70) Then

tangka.Text = "B"

tketerangan.Text = "Baik"

ElseIf nilai = Val(takhir.Text < 61 And 65) Then

tangka.Text = "BC"

tketerangan.Text = "Cukup Baik"

ElseIf nilai = Val(takhir.Text < 56 And 60) Then

tangka.Text = "C"

tketerangan.Text = "Cukup"

ElseIf nilai = Val(takhir.Text < 41 And 55) Then

tangka.Text = "D"

tketerangan.Text = "Kurang Baik"

ElseIf nilai = Val(takhir.Text < 40) Then

tangka.Text = "E"

tketerangan.Text = "Kurang Sekali"

End If

End Sub

Ket: tasli3= Textbox Yang Ada Pada Nilai_UAS, Asli

7. Rumus pada Cummondbutton Simpan

Private Sub simpan_Click()

On Error GoTo errsimpan

database.Execute "INSERT INTO TBL_NILAI_MAHASISWA (NAMA_MAHASISWA,NIM,NILAI_HARIAN_ASLI,NILAI_UTS_ASLI,NILAI_UAS_ASLI)Values('" & tnama & "','" & tnim & "','" & tasli1 & "','" & tasli2 & "','" & tasli3 & "')"

MsgBox "Data Sudah Berhasil Diproses", vbInformation, "INFO"

errsimpan:

If Err.Number <> 0 Then

   If Err.Number = -2147217900 Or Err.Number = -2147467259 Then

       MsgBox "Data Sudah Terdaftar", vbInformation, "INFORMASI"

   Else

       MsgBox CStr(Err.Number) & " " & Err.Description

   End If

End If

End Sub

8. Rumus pada Cummondbutton Lihat Data

Private Sub lihat_Click()

SQL = "Pastekan Rumus yang ada pada Ms. Access ke sini"

If recordata.State = 1 Then recordata.Close

recordata.Open SQL, Syahril, adOpenStatic, adLockReadOnly

If Not recordata.EOF Then

With DataGrid1

Set .DataSource = recordata

.MarqueeStyle = dbhighlightrowraisecell

.Refresh

End With

End If

End Sub

9. Download Modul Menghubungkan dari Ms. Accesss ke Visual Basic di sini
    
10. Selanjutnya jalankan Aplikasinya dan lihat hasilny

Hasilnya:

Setelah di jalankan dan di simpan

 
Download Modul Ini.....
Download Software Yang Sudah Jadi.....

Read More

2. Cara Menghubungkan VB ke Ms. Access melalui VB

2. Cara Menghubungkan VB ke Ms. Access melalui VB

Cara Menghubungkan Ms. Access Vs Visual Basic

1. Buka Aplikasi Visual Basic 6.0 Pilih Project Standart and Tambahkan Form pada Project
2. Setelah Selesai menambah Form selanjutnya kita menambah kompon tool dengan cara menekan tombol Ctrl + T.

3. Selanjutnya kita membuat ADO nya pada form

Adodc

4. Kemudian pilih Apply dan Ok, selanjutnya kita akan menambah ADO data pada from. Dan kita akan membuat jembatannya.

5. Kemudian kita akan memilih menu Build  kemudian pilih Microsoft Jet 4.0 OLE DB Provider  dan pilih Next>>

6. Selanjutnya kita akan memasukkan alamat data atau tabel pada acces ke alamat berikut. Dan menguji apakah ia sudah terkoneksi atau belum yaitu dengan mengkelik tombol Test_Connection  Jika ia sukses berarti ia sudah terkoneksi, dan jika belum, mungkin kendalanya ialah Ms. Accesnya Belum di rubah formatnya menjadi format 2000,  dan pilih Ok.

7. Langkah selanjutnya ialah mengcopy alamat yang berada di Build ke Notepad.  Dan mengcancel proses Property Pages dan jangan di OK

8. Selanjutnya kita akan mengedit Coding yang ada pada form atau mengisi Coding pada Form  dan ini merupakan Coding Untuk Mengkoneksi Form dengan Ms. Acces.

Ket : Dim database As ADODB.Connection

        Dim recordata As ADODB.Recordset = merupakan Kepala dari koding  untuk

      mengkoneksi / Alias

Command1 = Tombol Lihat data

Command2 = Tombol untuk keluar

Form_Load= Menghubung data Acces dengan Form

9. Selanjutnya kita akan menambah tabel Data Grid, Tombol Lihat Data & Exit pd Form

10. Selanjutnya kita harus menambah Module

11. Selanjutnya klik dua kali pada Module, dan kita masukkan Koding untuk menghubung Form dengan Module

Public DBKON As ADODB.Connection

Public Function koneksidata() As Boolean

Set DBKON = New ADODB.Connection

DBKON.Open "Paste Alamat yang di copy pada Notepad sebelumnya"

If Err.Number = 0 Then

koneksidata = True

Else

koneksidata = False

End If

End Function

12. Selanjutnya jalankan programnya.

   Download Modul ini....

Read More