Programa Udl Dosyası Oluşturtma Yardım Lütfen

[modigant]

Merhaba Arkadaşlar;
(Use Data link) Udl dosyasını delphide oluşturmak istiyorum. Bilindiği üzere notepadda oluşturduğunuz bir dosyanın uzantısını udl yaptığınız zaman dosya direk datalink dosyası oluyor. Ve Bu dosyayı veritabanı bağlantıları için kullanabiliyoruz. Ben dosyayı oluşturdum fakat notepadin oluşturduğu dosya ile delphinin oluşturduğu dosyalar birbirini tutmuyor. Ve haliyle benim oluşturduğum dosya udl dosyası olmuyor. 'Geçerli bir veritabanı dosyası olduğundan emin olun diye bir uyarı veriyor.Dosyayı oluşturmak için kullandığım kod;

Kod: Tümünü seç

var
dosya:TFileStream;
kayit:textfile;
yol:string;
begin
if not ((edit1.text='') or (edit2.text='')) then
begin

yol:=edit2.text+'\baglanti2.udl';
ShowMessage(yol);
 dosya.Create(yol,fmCreate);

AssignFile(kayit,yol);
rewrite(kayit);
writeln(kayit,'[oledb]');
writeln(kayit,'; Everything after this line is an OLE DB initstring');
writeln(kayit,'Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=iva; '+'Data Source='+edit1.Text+'; Initial File Name='+edit2.text+'iva.mdf');

closefile(kayit);
 dosya.Free;
 end
else
ShowMessage('Sunucu İsmi Yada Veritabanı Yolu Boş Değer Girilemez. Lütfen Ayarlarınızı Kontrol Edin.');
end;

Hata varsa nerde olduğunu öğrenebilirmiyim. Yada Ole ile excele yaptırdığımız işler gibi notepad a de işlemler yaptırabiliyormuyuz? Yardımcı olursanız sevinirim. İyi Çalışmalar...

[akdatilla]

merhaba
Yazmış olduğun kodlara baktığım zaman, dosya nesnesini kaldırman gerekli olduğunu düşünüyorum. Dosya değişkenini ve dosya adı geçen bütün komutları kaldırıp bir denermisin.

[modigant]

Olumsuz .Değişen hiç bişey olmadı. Bu konuda bilgisi olan birisi acil yardım edebilirse çok sevinirim.

[hakancobr]

Degerli modigan belki gec olmus ama cvp goremeyince yazmak geldi icimden...
Belki baska arkadaslar faydalanır

Bu kodlar yeterli gelecektir...

unit umain;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, DB, ADODB, RzButton, ExtCtrls, RzPanel, cxGraphics,
cxControls, cxLookAndFeels, cxLookAndFeelPainters, cxContainer, cxEdit,
dxSkinsCore, dxSkinBlack, dxSkinBlue, dxSkinCaramel, dxSkinCoffee,
dxSkinDarkRoom, dxSkinDarkSide, dxSkinFoggy, dxSkinGlassOceans,
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
dxSkinOffice2010Black, dxSkinOffice2010Blue, dxSkinOffice2010Silver,
dxSkinPumpkin, dxSkinSeven, dxSkinSharp, dxSkinSilver, dxSkinSpringTime,
dxSkinStardust, dxSkinSummer2008, dxSkinsDefaultPainters, dxSkinValentine,
dxSkinXmas2008Blue, cxImage, cxLabel, dxGDIPlusClasses, rkVistaPanel, Buttons;

type
TForm1 = class(TForm)
ADOConnection1: TADOConnection;
RzPanel1: TRzPanel;
cxLabel1: TcxLabel;
cxLabel4: TcxLabel;
Image6: TImage;
RzPanel2: TRzPanel;
Memo1: TMemo;
Mesaj: TMemo;
Memo2: TMemo;
GroupBox1: TGroupBox;
Label3: TLabel;
Label4: TLabel;
Label5: TLabel;
SpeedButton3: TSpeedButton;
Edit3: TEdit;
Edit4: TEdit;
Edit5: TEdit;
BtnTmm: TBitBtn;
cxLabel2: TcxLabel;
Label1: TLabel;
SpeedButton1: TSpeedButton;
Edit1: TEdit;
Edit2: TEdit;
BtnKapat: TBitBtn;
cxLabel3: TcxLabel;
cxLabel5: TcxLabel;
cxLabel6: TcxLabel;
Label2: TLabel;
Edit6: TEdit;

Function PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
Function PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
procedure BtnTmmClick(Sender: TObject);
procedure BtnKapatClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

Function TForm1.PromptDataSource(ParentHandle: THandle; InitialString: WideString): WideString;
var
ConxnStr:WideString;
begin
ConxnStr := PromptDataSource(Form1.Handle, ADOConnection1.ConnectionString);
end;

Function TForm1.PromptDataLinkFile(ParentHandle: THandle; InitialFile: WideString): WideString;
var
dlfStr:WideString;
begin
dlfStr:=PromptDataLinkFile(Form1.Handle,'');
end;

procedure TForm1.BtnTmmClick(Sender: TObject);
var
DDatabase,DDataSource,DPass,DUser,Dpath,DFile:String;
begin
DDatabase :=Edit1.Text;
DPath :=Edit2.Text;
DDataSource :=Edit5.Text;
DPass :=Edit4.Text;
DUser :=Edit3.Text;
DFile :=DPath+Edit6.Text;

if not FileExists(DFile) then
begin
CreateUDLFile(DFile,'SQLOLEDB.1',''+DDataSource+';'+ 'Password='+DPass+';' +'Persist Security Info=True;'+ 'User ID='+DUser+';' + 'Initial Catalog='+DDatabase+';');
end;
ADOConnection1.ConnectionString:= 'FILE NAME='+DFile;
ADOConnection1.Open;
if ADOConnection1.Connected then
mesaj.Lines.Add('Baglanti Dosyasi olusturuldu...');
mesaj.Lines.Add('Baglanti Basarili...');

Memo2.Clear;
GetDataLinkFiles(Memo2.Lines);
Memo1.Clear;
GetProviderNames(Memo1.Lines);

ADOConnection1.Close;

end;

procedure TForm1.BtnKapatClick(Sender: TObject);
begin
Close;
end;

end.