Dear All...
Alo pakar2 VB. ak mau nanya lg nih.
ak kan buat database seperti ini.
misalnya :
Tabel Pertanyaan
kd_per1 Pertanyaan kd_y kd_n
T01 A T02 S01
T02 B T03 S02
T03 C Z S03
Tabel Solusi
kd_sol solusi
S01 AAA
S02 BBB
S03 CCC
Z Tdk terdetect
Code general :
Dim kd_pert1 As Integer
Dim kd_pert2, kd_pert As String
Dim skdpert As String
Dim id_yes, id_no As String
Dim koneksi As ADODB.Connection
Codenya utk cmd_ya begini :
Dim rspert As New ADODB.Recordset
Dim rssolusi As New ADODB.Recordset
'kode untuk ambil data di table
'setiap perubahan pilihan maka akan merubah variable, merubah pertanyaan
If UCase(Trim(id_yes)) <> "Z" Then
rspert.open "SELECT * FROM pertanyaan where kd_pert = '" & id_yes &
"'", koneksi, adOpenDynamic, adLockOptimistic
'nampilin data di textbox
If rspert.EOF = False Then
rssolusi.open "SELECT * FROM solusi where kd_solusi = '" &
rspert.Fields(2).Value & "'", koneksi, adOpenDynamic, adLockOptimistic
If rssolusi.EOF = False Then
solusi = rssolusi.Fields(1).Value
refresh_form
tpertanyaan = "Lihat Hasil"
ElseIf rspert.Fields(3).Value = "Z" Then
refresh_form
tpertanyaan = "Lihat Hasil"
Else
rspert.Close
rspert.open "SELECT * FROM pertanyaan where kd_pert = '" &
id_yes & "'", koneksi, adOpenDynamic, adLockOptimistic
tpertanyaan = rspert.Fields(1).Value
id_no = rspert.Fields(3).Value
id_yes = rspert.Fields(2).Value
End If
End If
Else
Pertanyaanku berdasarkan database diatas, knp utk kd_pert "T02" kl di klik
Yes munculnya jd "Z" hrsnya kan "T03".
itu gimana yach....??? kynya code ku salah. tlg dibantu donk..Please....!
thanks Before
Lilis
[Non-text portions of this message have been removed]
