|
Тема |
как с adotable да създам временна таблица в MSSQL |
|
Автор | freaa (Нерегистриран) | |
Публикувано | 14.11.06 00:06 |
|
|
var
AdoTableTemp: TADOTable;
begin
ADOTable1.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Password=r9p5zh;'+
'Persist Security Info=True;'+
'User ID=sa;'+
'Initial Catalog='+Edit3.Text+';'+
'Data Source=sqldb';
ADOTable1.Close;
ADOTable1.TableName := Edit1.Text;
try
ADOTable1.Open;
except
on E:Exception do begin
MessageDlg('Error Opening Table ' + E.ClassName, mtError, [mbOK], 0);
ShowMessage(E.Message);
end;//on
end;//try
try
AdoTableTemp := TADOTable.Create(nil);
AdoTableTemp.ConnectionString := 'Provider=SQLOLEDB.1;'+
'Password=r9p5zh;'+
'Persist Security Info=True;'+
'User ID=sa;'+
'Initial Catalog=tempdb;'+
'Data Source=sqldb';
//AdoTableTemp.Close;
AdoTableTemp.FieldDefs := ADOTable1.FieldDefs;
AdoTableTemp.TableName := 'dbo.temp1';
{ Call the CreateTable method to create the table }
{ как с adotable да създам временна таблица в MSSQL server }
AdoTableTemp.CreateTable;
AdoTableTemp.Open;
finally
ADOTable1.Free;
end;
end;
|
| |
|
|
|