Sebenarnya database access ini bertujuan untuk menampung jawaban
santriwati di pondok saya yang ujian semester menggunakan Excel 2007.
Setiap santriwati ketika menekan tombol selesai, data jawaban mereka
akan tersimpan ke table jawaban.
kalau jawaban dibuat menjadi record tersendiri, dapat dibayangkan berapa
record yang akan terbentuk jika siswanya berjumlah 700 orang. padahal 1
materi saja mempunyai 50 soal.
lebih lengkapnya desain field table jawaban seperti ini:
ID,Tanggal,Waktu,NoUjian,Nama,Kelas,Materi,Jawaban1,jawaban2,jawaban3...\
dst
Izinkan saya untuk bertanya lagi Mr... sya menulis kode berikut untuk
mengambil kembali data yang ada di access ke excel menggunakan
copyfromrecordset. yang jadi masalah adalah, field waktu tidak dapat
menampilkan format waktu di excel, hanya tanggal saja yang ada di field
waktu.
Minta pencerahannya...wassalam.
Sub DapatkanData()
Dim sSQL As String
Dim rs As ADODB.Recordset
Dim cn As ADODB.Connection
Set cn = New ADODB.Connection
cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
Environ("UserProfile") & "\Desktop\jwb.accdb;Persist Security
Info=False"
Set rs = New ADODB.Recordset
sSQL = "Select * from Jawaban"
rs.Open sSQL, cn, adOpenKeyset, adLockOptimistic
Cells(5, 2).CopyFromRecordset rs
rs.Close
Set rs = Nothing
cn.Close
Set cn = Nothing
End Sub
--- In [email protected], "Mr. Kid" wrote:
>
> Oh gitu.
>
> Maksud saya, kenapa tabel tidak dibuat berupa 2 kolom bernama Nomor
> (kolom1) dan jawab(kolom2).
> Jadi data setiap nomor akan jadi 1 record alias sekali input akan ada
> penambahan 50 record.
>
> Wassalam,
> Kid.
> On Dec 25, 2012 9:18 AM, "Adi" abduhsuryadi@... wrote:
>
> > **
> >
> >
> > kalau yang itu, sudah saya coba pak,dan alhmdlillah sukses. kodenya
> > seperti ini:
> >
> > dim myField as String
> > dim myInt as Integer
> >
> > With rs
> > .AddNew
> >
> > For myInt = 1 To 50
> > myField = myField & IIf(IsNull(Range("F" & myInt)) Or Range("F" &
myInt) =
> > "", "0", Range("F" & myInt))
> > Next
> >
> > .Fields("Jawaban") = myField
> > .Update
> > End With
> >
> > --- In [email protected], "Mr. Kid" mr.nmkid@ wrote:
> > >
> > > Sama-sama.
> > >
> > > Kalau boleh bertanya, apakah mungkin jika tabelnya diubah menjadi
> > memiliki
> > > kolom Nomor dan Jawaban (2 kolom) saja ?
> > >
> > > Wassalam,
> > > Kid.
> > >
