untuk koneksi dari ms.access ke sql memakai ADO, scrip nya sbb, kalo masih ada
kelemahan tolong di koreksi, tp aku udah coba dan berhasil. thx bos
Option Compare Database
Sub CreateParms()
Dim ADOCon As ADODB.Connection
Dim strConnect As String
On Error GoTo ErrHandler
'Trusted connection
'strConnect = "Provider=SQLOLEDB;Data Source=txtNamaServer;Initial
Catalog=txtDatabase;Integrated Security=SSPI;"
'Standard Security
strConnect = "PROVIDER=SQLOLEDB.1;PASSWORD=txtpassword;PERSIST SECURITY
INFO=TRUE;USER ID=txtUser;INITIAL CATALOG=txtDatabase;DATA SOURCE=txtNamaServer"
Set ADOCon = New ADODB.Connection
With ADOCon
.CursorLocation = adUseServer
.ConnectionString = strConnect
.Open
End With
GoTo Shutdown
ErrHandler:
Call ErrHandler(ADOCon)
Resume Next
Shutdown:
Set ADORs = Nothing
Set ADOCon = Nothing
End Sub
Sub ErrHandler(objCon As Object)
Dim ADOErr As ADODB.Error
Dim strError As String
For Each ADOErr In objCon.Errors
strError = "Error #" & ADOErr.Number & vbCrLf & ADOErr.Description _
& vbCr & _
" (Source: " & ADOErr.Source & ")" & vbCr & _
" (SQL State: " & ADOErr.SQLState & ")" & vbCr & _
" (NativeError: " & ADOErr.NativeError & ")" & vbCr
If ADOErr.HelpFile = "" Then
strError = strError & " No Help file available" & vbCr & vbCr
Else
strError = strError & " (HelpFile: " & ADOErr.HelpFile & ")" _
& vbCr & _
" (HelpContext: " & ADOErr.HelpContext & ")" & _
vbCr & vbCr
End If
Debug.Print strError
Next
objCon.Errors.Clear
End Sub
Best regard
Erwin Sugiawan
----- Original Message ----
From: Erwin Sugiawan <[EMAIL PROTECTED]>
To: [email protected]
Sent: Thursday, September 6, 2007 8:27:59 AM
Subject: Re: [belajar-access] wta : access 2007 + sql 2000
thx bos, aku coba dan search ke google untuk pake ADO, kalo berhasil aku bikin
report ke sini.
Best regard
Erwin Sugiawan
----- Original Message ----
From: aksan kurdin <[EMAIL PROTECTED]>
To: [email protected]
Sent: Wednesday, September 5, 2007 7:42:44 PM
Subject: Re: [belajar-access] wta : access 2007 + sql 2000
<!--
#ygrp-mkp{
border:1px solid #d8d8d8;font-family:Arial;margin:14px 0px;padding:0px 14px;}
#ygrp-mkp hr{
border:1px solid #d8d8d8;}
#ygrp-mkp #hd{
color:#628c2a;font-size:85%;font-weight:bold;line-height:122%;margin:10px 0px;}
#ygrp-mkp #ads{
margin-bottom:10px;}
#ygrp-mkp .ad{
padding:0 0;}
#ygrp-mkp .ad a{
color:#0000ff;text-decoration:none;}
-->
tidak tepat.
cara kedua anda bisa menggunakan library ADO untuk mengakses database SQL
Server, ini seolah-olah memperlakukan MS Access selayaknya IDE Visual Basic.
Koneksinya lebih cepat daripada dengan ODBC, tetapi kemudahan access jadi
hilang, karena daftar table tidak berisi tabel, sehingga yang terbiasa bikin
query dengan main geret sudah tidak bisa lagi.
Menjawab pertanyaan anda, bisa saja tidak diperlukan adanya DSN yang harus
dibuat di setiap client, karena anda bisa membuat query yang langsung nembak ke
ODBC SQL Server (biasanya sudah default ada di windows) dengan isi sql seperti:
SELECT *
FROM [ODBC;DRIVER=SQL Server;SERVER=namaserver;APP=2007 Microsoft Office
system;DATABASE=namadatabase].NamaTable
Coba deh bikin di query designer MS Access, tapi dalam SQL View, lalu jalankan,
sesuaikan server dan database. Mungkin anda akan ditanyai user password. Query
ini bisa disimpan, jadi punya obj. query tanpa harus punya obj. table.
Tapi tetap saja, kemudahan desain aplikasi access jadi hilang.
Aksan Kurdin
On 9/5/07, Erwin Sugiawan <
[EMAIL PROTECTED]> wrote:
setelah bertanya kesana kemari, akhir nya di jawab juga oleh om google, untuk
melakukan sql server sebagai BE dari access 2007, ternyata cuma ada satu cara
yaitu mempergunakan ODBC.
pertanyaanya,
- kalo kita membuat database multiuser , apakah file odbc nya di letakan pada
drive yang di sharing atau kita buat di masing2 komputer ?
- apakah ada yang pernah mempergunakan SqlHelper di ms.
access untuk connection , buka recordset dan run sp ?
mohon pencerahan dari teman2 .
Best regard
Erwin Sugiawan
Need a vacation?
Get great deals to amazing places on Yahoo! Travel.
--
Aksan Kurdin
Fussy? Opinionated? Impossible to please? Perfect. Join Yahoo!'s user
panel and lay it on us.
____________________________________________________________________________________
Got a little couch potato?
Check out fun summer activities for kids.
http://search.yahoo.com/search?fr=oni_on_mail&p=summer+activities+for+kids&cs=bz
