Arsip: [ask] koneksi ke ODBC user Dsn saat runtime dengan ado

more 8 years ago
kepiss
Para master saya ada masalah nie bikin koneksi menggunakan adoconnection
saat runtime.
latarbelakang masalahnya.
kan biasanya kalo aplikasi pindah komputer kalokoneksinya pake odbc pasti minta odbc datasource nya.
lha ane pingin saat aplikasi berjalan langsung membuat ODBC USER DSM sendiri terus setelah itu koneksi string
dari ado diseting gitu.
yang ane bingungin nyeting connction stringnya gimana yaw....
ini script yang sudah ane coba...mohon dikoreksi ya para guru..:D
[pas]
// ini code yang ane dapet dari searching....n pembuatannya User DSN nya berhasil tapi Configurasinya tidak bisa
const
ODBC_ADD_DSN = 1; // Add data source
ODBC_CONFIG_DSN = 2; // Configure (edit) data source
ODBC_REMOVE_DSN = 3; // Remove data source
ODBC_ADD_SYS_DSN = 4; // add a system DSN
ODBC_CONFIG_SYS_DSN = 5; // Configure a system DSN
ODBC_REMOVE_SYS_DSN = 6; // remove a system DSN
type
TSQLConfigDataSource = function( hwndParent: HWND;
fRequest: Integer;
lpszDriver,
lpszAttributes,
lpszMsg: PChar;
cbMsgMax: Word;
var pcbMsgOut: Word ) : BOOL; stdcall;
procedure AddDSN;
var
pFn: TSQLConfigDataSource;
hLib: LongWord;
strDriver,
strHome,
strAttr,
msgOut: PChar;
strFile: string;
fResult: BOOL;
ModName: array[0..MAX_PATH] of Char;
srInfo : TSearchRec;
OutLen : Word;
begin
hLib := LoadLibrary( 'ODBCCP32' ); // load from default path
if( hLib <> NULL ) then
begin
@pFn := GetProcAddress( hLib, 'SQLConfigDataSource' );
if( @pFn <> nil ) then
begin
GetMem( strDriver,255 );
StrCopy( strDriver,'Mysql ODBC 5.1 Driver' );
GetMem( strAttr,255 );
StrCopy( strAttr,'DSN=Test' +#0+'host=localhost'+#0+'user=root'+#0+'database=koprasi'+#0+#0);
GetMem( MsgOut,255 );
OutLen := 0;
fResult := pFn( 0, ODBC_ADD_DSN, strDriver, strAttr, MsgOut, 255, OutLen );
if( fResult = false ) then ShowMessage( 'Create DSN failed!' );
end;
FreeLibrary( hLib );
FreeMem( strDriver );
FreeMem( strAttr );
Freemem( MsgOut );
end
else
begin
ShowMessage( 'Unable to load ODBCCP32.DLL' );
end;
end;
// mengetes koneksinya gan ...tapi gagal..masalhnya apa yaw
procedure TForm1.Button1Click(Sender: TObject);
begin
try
AddDSN;
Adoconnection1.Connected:=False;
adoconnection1.ConnectionString:='Driver=MSDASQL.1;Persist Security Info=False;User ID=root;Data Source=Test;Initial Catalog=koprasi';
adoconnection1.LoginPrompt:=False;
Adoconnection1.DefaultDatabase:=null;
Adoconnection1.Connected:=True;
Showmessage('koneksi oke');
except
Showmessage('gagal biz');
end;
end;
Mohon yang bisa kasih solusi...butuh bantuan banget nie para guru...[/pas]

more 8 years ago
halimanh
Kalo saya sih pake cara yg lebih mudah. Buat suatu empty file dengan ekstensi .udl (bisa pake explorer), misalnya Koneksi.udl.
Terus di AdoConnectionnya:
ADoConnection.connectionString := 'Koneksi.udl'; //Kalo ditaruh di direktori yg sama dgn aplikasi, bisa dipake GetAppPath()
Nah, sekarang double click file 'koneksi.udl' di explorer. Bakal ada window popup. Sekarang tinggal configurasi koneksinya, seperti biasa. Sewaktu diinstall di tempat client, tinggal double click lagi file koneksi.udlnya untuk setting di tempat client, beres kan. Dengan begini, settingannya terpisah dengan aplikasinya, dan fleksible, bisa diubah sesuai kebutuhan.
more 8 years ago
kepiss
@halimanh: Kalo saya sih pake cara yg lebih mudah. Buat suatu empty file dengan ekstensi .udl (bisa pake explorer), misalnya Koneksi.udl. Terus di AdoConnectionnya:Maaf mas baru bales.....maksudnya gimana ya mas..... koneksi.udl nanti isinya apa?? apakah cuma kosongan file gitu mas?? logikanya bagaimana mas kok bisa?? maaf mas banyak nanya.....Nah, sekarang double click file 'koneksi.udl' di explorer. Bakal ada window popup. Sekarang tinggal configurasi koneksinya, seperti biasa. Sewaktu diinstall di tempat client, tinggal double click lagi file koneksi.udlnya untuk setting di tempat client, beres kan. Dengan begini, settingannya terpisah dengan aplikasinya, dan fleksible, bisa diubah sesuai kebutuhan.ADoConnection.connectionString := 'Koneksi.udl'; //Kalo ditaruh di direktori yg sama dgn aplikasi, bisa dipake GetAppPath()

more 8 years ago
halimanh
Silahkan coba dulu yg saya tulis ini, nanti pertanyaan anda terjawab sendiri.
@kepiss: [quote:70632df285="halimanh"]Kalo saya sih pake cara yg lebih mudah. Buat suatu empty file dengan ekstensi .udl (bisa pake explorer), misalnya Koneksi.udl. Terus di AdoConnectionnya:Nah, sekarang double click file 'koneksi.udl' di explorer. Bakal ada window popup. Sekarang tinggal configurasi koneksinya, seperti biasa. Sewaktu diinstall di tempat client, tinggal double click lagi file koneksi.udlnya untuk setting di tempat client, beres kan. Dengan begini, settingannya terpisah dengan aplikasinya, dan fleksible, bisa diubah sesuai kebutuhan.[/quote:70632df285] Maaf mas baru bales.....maksudnya gimana ya mas..... koneksi.udl nanti isinya apa?? apakah cuma kosongan file gitu mas?? logikanya bagaimana mas kok bisa?? maaf mas banyak nanya.....ADoConnection.connectionString := 'Koneksi.udl'; //Kalo ditaruh di direktori yg sama dgn aplikasi, bisa dipake GetAppPath()
more ...
- Pages:
- 1
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 5 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 5 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- index name di ADO
by saysansay in OOT more 15 years ago - Delphi 7 Second Edition v.7.2
by NiceDream in OOT more 13 years ago - Porting Nexia Offline Server (VB6 2 Delphi7)
by coolmib in Games more 15 years ago - gmana ni admin!!
by ichan29 in OOT more 13 years ago - load/open microsoft word
by muttaqin_taufan in Tip n Trik Pemrograman more 13 years ago - Mencari nama database Pada aplikasi
by i_hasibuan in FireBird more 11 years ago - Mengirim Sms Lewat Internet Dengan Delphi
by cyber2000 in Tip n Trik Pemrograman more 11 years ago - Pencarian
by lord_suji in Hal umum tentang Pascal Indonesia more 14 years ago - OOT: Semarang Banjir
by kaka-delphi in OOT more 15 years ago - Dimana Salahnya Ya ....
by umarbakri in Hal umum tentang Pascal Indonesia more 14 years ago