伴水兄,能否帮我解决这个问题? 用TDatabase控件现在是什么错误提示? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 const ODBC_ADD_DSN = 1; ODBC_CONFIG_DSN = 2; ODBC_REMOVE_DSN = 3; ODBC_ADD_SYS_DSN = 4; ODBC_CONFIG_SYS_DSN = 5; ODBC_REMOVE_SYS_DSN = 6;function SQLConfigDataSource(hwndParent: Integer; fRequest: LongInt; lpszDriverString: string; lpszAttributes: string): LongBool; stdcall; external 'ODBCCP32.DLL';const BoolStr: array[Boolean] of string = ('False', 'True');begin Caption := BoolStr[ SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,// ~换成Handle就是手工配置'SQL Server', //数据库类型'DSN=MyDatabase'#0 + //数据源名称'Server=(local)'#0 + //SQL Server服务器名'Database=DatabaseName'#0 + //数据库名称'Description=动态配置ODBC'#0 //描述 )];end; 获取目标界面数据?? 我用了TShellListView这个对象,当鼠标右击的时候,弹出的是windows的菜单,我想让他弹出自己的菜单! 请帮我诊断这段代码? 创业贴,求1-2个delphi高手 请问有没有IntraWeb6.0.12注册码? 怎样改变inputQuery的字体? 怎样使用UPDATE 对一个表进行批量更新 送分 关于打印的问题 ActiveForm的发布问题:在浏览器端按提示下载后仍不可见? 伴水,代码我贴在楼下了,你能给看看吗? 我没办法了,就这一段代码,可是这400*450的图片一直在闪动,快救火!(50)
ODBC_ADD_DSN = 1;
ODBC_CONFIG_DSN = 2;
ODBC_REMOVE_DSN = 3;
ODBC_ADD_SYS_DSN = 4;
ODBC_CONFIG_SYS_DSN = 5;
ODBC_REMOVE_SYS_DSN = 6;function SQLConfigDataSource(hwndParent: Integer;
fRequest: LongInt; lpszDriverString: string;
lpszAttributes: string): LongBool; stdcall; external 'ODBCCP32.DLL';const
BoolStr: array[Boolean] of string = ('False', 'True');
begin
Caption := BoolStr[
SQLConfigDataSource(0, ODBC_ADD_SYS_DSN,
// ~换成Handle就是手工配置
'SQL Server', //数据库类型
'DSN=MyDatabase'#0 + //数据源名称
'Server=(local)'#0 + //SQL Server服务器名
'Database=DatabaseName'#0 + //数据库名称
'Description=动态配置ODBC'#0 //描述
)];
end;