با سلام
مي دونم كه اين موضوع شايد به اين بخش مربوط نباشه ولي من در بخش اصلي اين موضوع رو مطرح كردم ولي متاسفانه كسي جواب نداد
حال من چند كد مربوط به نحوه attach و ساخت كاربر و تغيير owner رو از دلفي دارم
ولي من دلفي بلد نيستم از شما اساتيد خواهشمندم كه اين كدها را به صورت vb6 تبديل كنيد
ادرس پست مربوط به اين كدها
https://barnamenevis.org/showth...h_db+%40dbname
كدها:
1) اتصال بانک اطلاعاتی که روی هارد قرار دارد به SQL Server:
ADOCO.CommandText:='EXEC sp_attach_db @dbname = N'+QuotedStr('BridgeDB')+','+
'@filename1 = N'+QuotedStr(ExtractFilePath(Application.ExeName)+ 'DataBase\BridgeDB_Data.MDF')+','+
'@filename2 = N'+QuotedStr(ExtractFilePath(Application.ExeName)+ 'DataBase\BridgeDB_Log.LDF');
ADOCO.Execute;
2) ایجاد کاربر مورد نظر در SQl Serevr:
ADOCO.CommandText := 'Exec SP_AddLogin ' + QuotedStr('user name') +
',' + QuotedStr('Password') + ',' + QuotedStr('DataBase name') + ';';
ADOCO.Execute;
3) تغییر Owner یک بانک اطلاعاتی یا اصطلاحا همون کاربر بانک اطلاعاتی
ADOCO.CommandText:='use BridgeDB';
ADOCO.Execute;
ADOCO.CommandText:='EXEC sp_changedbowner '+QuotedStr('UserName');
ADOCO.Execute;
بي صبرانه متنظر پاسختون هستم