mestinya jangan pake DAO pak Nana,
ADP itu pake ADO
Dim Strsql As String
Dim cnn As ADODB.connection
dim Rst As new ADODB.Recordset
set cnn = currentproject.connection
Strsql = "................................."
rst.open strSQL, cnn
Me.Text1.value = Rst!......
set rst = nothing
set cnn = nothing
salam,
murid access - NRN CL
----- Original Message -----
From: Nana Supriatna
To: [email protected]
Sent: Wednesday, April 29, 2009 15:46
Subject: [belajar-access] Mengambil nilai di SQL
Saya punya kode sbb:
Dim Strsql As String
Dim db As Database, Rst As Recordset
Set db = CurrentDb
Strsql = ".................................
Set Rst = db.OpenRecordset(Strsql)
Me.Text1 = Rst!......
Kode diatas berjalan di MDB, kalau saya gunakan SQL sebagai BE dan ADP sebagai
FE apa yg harus di ubah ?
Terimakasih sebelumnya
Nana
nc3=3
Description: Binary data
