hamzehshabani
شنبه 22 اسفند 1388, 20:55 عصر
سلام دوستان من چندتا سوال داشتم که خوشحال میشم بهش جواب بدید.
1) من با کد زیر یه تیبل + فیلدهاش توی اکسس میسازم.
var
DataSource : string;
cs : string;
begin
DataSource :=
'Provider=Microsoft.Jet.OLEDB.4.0'+
';Data Source=c:\VaziatDataBase.mdb'+
';Persist Security Info=False';
ADOConnection1.ConnectionString := DataSource;
ADOConnection1.LoginPrompt := False;
ADOCommand1.Connection := ADOConnection1;
cs:='CREATE TABLE aaaa (' +
'ردیف TEXT(50),' +
'شماره،اشتراک TEXT(50),' +
'شماره،قرارداد TEXT(50),' +
'ازشماره TEXT(50),' +
'تاشماره TEXT(50),' +
'شماره،فیش،واریزی TEXT(50),' +
'تلفن TEXT(50),' +
'آدرس TEXT(100))';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
MessageBox(Handle,Pchar('.اطلاعات ثبت شد') , 'اطلاعات',MB_OK or MB_ICONINFORMATION)
end;
تیبل رو راحت میسازه اما میخوام بجای نام تیبل که در اینجا (aaaa) هست نام رو مثلا از edit1 بگیره.
اما نمیدونم باید چیکار کنم.
2) میخوام اول برنامه چک کنه که آیا دیتابیسهام وجود داره یا نه؟ و اگه وجود نداشت بگه مثلا وجود نداره و وارد برنامه نشه.
3) این سوال شبیه به سوال دومه، راستش من برای پس زمینه برنامم یه عکس قرار دادم که آدرسش رو از یه دیتابیس میگیره، چطور میتونم تایین کنم که اگه عکس موجود نبود مثلا کادر Open بیاد و عکس بخواد؟
البته این که کادر Open بیاد زیاد مهم نیست فقط میخوام بودو نبود فایلها رو تشخیص بدم. :لبخندساده:
1) من با کد زیر یه تیبل + فیلدهاش توی اکسس میسازم.
var
DataSource : string;
cs : string;
begin
DataSource :=
'Provider=Microsoft.Jet.OLEDB.4.0'+
';Data Source=c:\VaziatDataBase.mdb'+
';Persist Security Info=False';
ADOConnection1.ConnectionString := DataSource;
ADOConnection1.LoginPrompt := False;
ADOCommand1.Connection := ADOConnection1;
cs:='CREATE TABLE aaaa (' +
'ردیف TEXT(50),' +
'شماره،اشتراک TEXT(50),' +
'شماره،قرارداد TEXT(50),' +
'ازشماره TEXT(50),' +
'تاشماره TEXT(50),' +
'شماره،فیش،واریزی TEXT(50),' +
'تلفن TEXT(50),' +
'آدرس TEXT(100))';
ADOCommand1.CommandText := cs;
ADOCommand1.Execute;
MessageBox(Handle,Pchar('.اطلاعات ثبت شد') , 'اطلاعات',MB_OK or MB_ICONINFORMATION)
end;
تیبل رو راحت میسازه اما میخوام بجای نام تیبل که در اینجا (aaaa) هست نام رو مثلا از edit1 بگیره.
اما نمیدونم باید چیکار کنم.
2) میخوام اول برنامه چک کنه که آیا دیتابیسهام وجود داره یا نه؟ و اگه وجود نداشت بگه مثلا وجود نداره و وارد برنامه نشه.
3) این سوال شبیه به سوال دومه، راستش من برای پس زمینه برنامم یه عکس قرار دادم که آدرسش رو از یه دیتابیس میگیره، چطور میتونم تایین کنم که اگه عکس موجود نبود مثلا کادر Open بیاد و عکس بخواد؟
البته این که کادر Open بیاد زیاد مهم نیست فقط میخوام بودو نبود فایلها رو تشخیص بدم. :لبخندساده: