{"rsdb":{"rid":"395606","subhead":"","postdate":"0","aid":"272731","fid":"86","uid":"1","topic":"1","content":"
\n
\n \n \n
\n 
unit<\/span> Unit1;\n\n<\/span>interface<\/span>\n\nuses<\/span>\n  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,\n  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.Grids, Vcl.StdCtrls,\n  mormot.db.sql, mormot.db.core, mormot.db.sql.oledb, mormot.core.base;\n\n<\/span>type<\/span>\n  TForm1 <\/span>= class<\/span>(TForm)\n    StringGrid1: TStringGrid;\n    Memo1: TMemo;\n    <\/span>procedure<\/span> FormCreate(Sender: TObject);\n  <\/span>private<\/span>\n    {<\/span> Private declarations <\/span>}<\/span>\n  public<\/span>\n    {<\/span> Public declarations <\/span>}<\/span>\n  end<\/span>;\n\n  TSqlDBOleDBMSSQLConnectionPropertiesEx <\/span>= class<\/span>(TSqlDBOleDBMSSQLConnectionProperties)\n  <\/span>public<\/span>\n    constructor<\/span> Create<\/span>(const<\/span> aServerName, aDatabaseName, aUserID, aPassWord: RawUtf8); override<\/span>;\n  <\/span>end<\/span>;\n\n<\/span>var<\/span>\n  Form1: TForm1;\n\n<\/span>implementation<\/span>\n\n{<\/span>$R *.dfm<\/span>}<\/span>\n\nprocedure<\/span> TForm1.FormCreate(Sender: TObject);\n<\/span>begin<\/span>\n  var<\/span> conPool := TSqlDBOleDBMSSQLConnectionPropertiesEx.Create<\/span>('<\/span>192.168.1.2<\/span>'<\/span>, '<\/span>xb<\/span>'<\/span>, '<\/span>sa<\/span>'<\/span>, '<\/span>223344<\/span>'<\/span>);\n  <\/span>var<\/span> dataTable := conPool.ExecuteInlined('<\/span>select top 10 * from TestTable<\/span>'<\/span>, true);\n  StringGrid1.ColCount :<\/span>= dataTable.ColumnCount;\n  StringGrid1.RowCount :<\/span>= 100<\/span>;\n  <\/span>var<\/span> rowIndex := 1<\/span>;\n  <\/span>while<\/span> dataTable.Step do<\/span>\n  begin<\/span>\n    for<\/span> var<\/span> I := 0<\/span> to<\/span> dataTable.ColumnCount-1<\/span> do<\/span>\n    begin<\/span>\n      StringGrid1.Cells[I, rowIndex] :<\/span>= dataTable.ColumnString(I);\n    <\/span>end<\/span>;\n    inc(rowIndex);\n  <\/span>end<\/span>;\n<\/span>end<\/span>;\n\n<\/span>{<\/span> TSqlDBOleDBMSSQLConnectionPropertiesEx <\/span>}<\/span>\n\nconstructor<\/span> TSqlDBOleDBMSSQLConnectionPropertiesEx.Create<\/span>(const<\/span> aServerName,\n  aDatabaseName, aUserID, aPassWord: RawUtf8);\n<\/span>begin<\/span>\n  fProviderName :<\/span>= '<\/span>SQLOLEDB.1<\/span>'<\/span>;\n  <\/span>inherited<\/span> Create<\/span>(aServerName,aDatabaseName, aUserID, aPassWord);\n<\/span>end<\/span>;\n\n\n<\/span>end<\/span>.<\/pre> \n  <\/div> \n  View Code<\/span>\n <\/div> \n 
 <\/p> \n 
\u6ce8\uff1a\u7531\u4e8e ProviderName \u5c5e\u6027\u662f\u53ea\u8bfb\u7684\uff0c\u6240\u4ee5\u5728create\u4e2d\u521d\u59cb\u5316\u4e00\u4e0b\uff08\u80fd\u4e0d\u4fee\u6539\u6e90\u4ee3\u7801\u5c31\u4e0d\u6539\uff09<\/p> \n 
mormot.db.sql.oledb   \u5355\u5143\u4e2d\u5b9a\u4e49\u4e86mssql\u76f8\u5173\u7c7b\uff0c\u5982\u679c\u8fde\u63a5\u5176\u5b83\u6570\u636e\u5e93\u5219\u8981\u5f15\u7528\u76f8\u5bf9\u5e94\u7684\u6587\u4ef6\u3002<\/p> \n 
 <\/p> \n 
ODBC\u8fde\u63a5\uff0c\u6ce8\u91ca\u7684\u51e0\u79cd\u90fd\u662f\u53ef\u884c\u7684\uff1a<\/p> \n 
 \n  
  FDBProp := TSqlDBOdbcConnectionProperties.Create<\/span>('<\/span>321<\/span>'<\/span>, ''<\/span>, '<\/span>sa<\/span>'<\/span>, '<\/span>12345<\/span>'<\/span>);   \/\/<\/span>\u5df2\u7ecf\u5efa\u597d321\u8fde\u63a5\uff0c\u4f7f\u7528OLEDB\u9a71\u52a8,\u4e0d\u80fd\u7701\u7565\u3010\u7528\u6237\u540d\u3011\u548c\u3010\u5bc6\u7801\u3011<\/span>\n  FDBProp.Dbms := TSqlDBDefinition.dMSSQL;\n<\/span>\/\/<\/span>  FDBProp := TODBCProp.Create('123', '', 'sa', '12345'); \/\/\u540c\u4e0a 123\u4f7f\u7528ODBC\u9a71\u52a8\uff0c \u4e0d\u80fd\u7701\u7565\u3010\u7528\u6237\u540d\u3011\u548c\u3010\u5bc6\u7801 \u3011<\/span>\n\/\/<\/span>  FDBProp := TODBCProp.Create('', 'DSN=123;UID=sa;PWD=Sa12345;DATABASE=MyDB', '', '');  \/\/\u4f7f\u7528ODBC\u9a71\u52a8\uff0c\u53ef\u4ee5\u7701\u7565\u3010\u7528\u6237\u540d\u3011\u548c\u3010\u5bc6\u7801\u3011<\/span>\n\/\/<\/span>  FDBProp := TODBCProp.Create('', 'DRIVER=ODBC Driver 17 for SQL Server;UID=sa;PWD=12345;Trusted_Connection=No;SERVER=192.168.1.50;MARS_Connection=yes;DATABASE=MyDB', '', ''); \/\/\u8fd9\u6837\u4e5f\u53ef\u4ee5<\/span>\n\/\/<\/span>  FDBProp.SqlDriverConnectPrompt := TRUE;   \/\/\u4f1a\u5f39\u51faODBC\u8bbe\u7f6e\u5bf9\u8bdd\u6846<\/span><\/pre> \n <\/div> \n 
 <\/p> \n<\/div>","orderid":"0","title":"mormot2\u7b14\u8bb0(\u4e00) \u8fde\u63a5\u6570\u636e\u5e93","smalltitle":"","mid":"0","fname":"Delphi","special_id":"0","bak_id":"0","info":"0","hits":"288","pages":"1","comments":"0","posttime":"2023-08-26 21:08:35","list":"1693055315","username":"admin","author":"","copyfrom":"","copyfromurl":"","titlecolor":"","fonttype":"0","titleicon":"0","picurl":"https:\/\/www.cppentry.com\/upload_files\/","ispic":"0","yz":"1","yzer":"","yztime":"0","levels":"0","levelstime":"0","keywords":"mormot2<\/A> \u7b14\u8bb0<\/A> \u8fde\u63a5\u6570<\/A>","jumpurl":"","iframeurl":"","style":"","template":"a:3:{s:4:\"head\";s:0:\"\";s:4:\"foot\";s:0:\"\";s:8:\"bencandy\";s:0:\"\";}","target":"0","ip":"61.152.197.142","lastfid":"0","money":"0","buyuser":"","passwd":"","allowdown":"","allowview":"","editer":"","edittime":"0","begintime":"0","endtime":"0","description":"mormot2\u7b14\u8bb0(\u4e00) \u8fde\u63a5\u6570\u636e\u5e93","lastview":"1716081930","digg_num":"0","digg_time":"0","forbidcomment":"0","ifvote":"0","heart":"","htmlname":"","city_id":"0"},"page":"1"}