300分求BCB+SQL源代码

tccsdn 2003-01-08 01:37:06

小弟学BCB有一段时间了，在CSDN上的各位帮助之下，对BCB有了一定的了解
，最近想学SQL，不知道怎么下手，不知道和本地数据库有什么样的区别？我在WINDOWS2000上装了一下SQL2000，提示不能装服务器端，不知怎么安装，我想在公司局域
网上搭建个平台，就是装不上。我要求的代码只要能反映存取SQL服务器上的一个表就行了，目的是在总体上有一个了解，或者是提供点BCB+SQL的学习资源。
本来是想放300分的，怎么CSDN不肯呢

...全文

13 26 打赏收藏转发到动态举报

写回复

用AI写文章

26 条回复

切换为时间正序

请发表友善的回复…

发表回复

oishi 2003-01-14

打赏
举报

在OPTION中把dclusr.*可以删除!

tongzhenhua 2003-01-12

打赏
举报

个人学习的话
我推荐 BCB/DELPHI+SQL 2K 个人版。个人版在98下都能用。感觉很好使。
另外写SQL程序的话你先要把表格，数据库都先建好了才行的噢。SQL总会用的吧。

Kin_CIOM 2003-01-11

打赏
举报

直接将bpr文件中的dclusr.*的路径删除

海底深蓝 2003-01-09

打赏
举报

只要你的query组件能够连上远程数据库服务器，操作和本地数据库基本一致

tccsdn 2003-01-09

打赏
举报

to oishi(秦时明月汉时关):
你给我的代码在WIN2000+BCB6编译了下，出现：unable to find package import dclusr.bpi的错误，连接通不过，是不是没装SQL的问题呢？请赐教

tccsdn 2003-01-09

打赏
举报

这个文件没找到，我感觉不是这个文件问题，因为我在WINDOWS2000下写的程序
在WIN98下也出现这问题，我写可以，有些不行，前提是，我的BCB重新装过的。

oishi 2003-01-09

打赏
举报

你还没有装SQL吗?
应该不是!
你查找一下这个文件
dclusr.bpi
你有没有!
这样的问题我以前也遇过!
不过忘了怎么改的了?
我今天回去看看!

sunmedia 2003-01-09

打赏
举报

你应该是在WIN2000 专业版上安装的是SQL Server2000的企业版才会出现这样的提示，你应该安装SQL Server2000的标准版就可以了！！

Kin_CIOM 2003-01-09

打赏
举报

Windows2000 Professional 上不能安装SQL Server200企业版服务器端
可以安装专业版服务器端

sdsugar 2003-01-08

打赏
举报

提示：在安装的过程中，你可以选择SQL SERVER 2000里的“高级选项”，其实这个名称是吓唬人的，其实在你选择了这个以后，安装会简单很多。还有最好看看SQL 方面的书。偶用的是靠MCSE时的书，看看就会了。其实偶也是大菜鸟一个，哈哈，和兄弟交流交流：）

tccsdn 2003-01-08

打赏
举报

这不是和本地数据库是一样的吗？

痞子酷 2003-01-08

打赏
举报

呵呵～～～～～～

netsys2 2003-01-08

打赏
举报

增加：
DM->Query1->Close();
DM->Query1->SQL->Clear();
DM->Query1->SQL->Add("insert into Addbook.DB ");
DM->Query1->SQL->Add("values(:NAME,:TEL)");
DM->Query1->ParamByName("NAME")->AsString = "myname";
DM->Query1->ParamByName("TEL")->AsString = "1234567";
DM->Query1->ExecSQL();

删除：
DM->Query1->Close();
DM->Query1->SQL->Clear();
DM->Query1->SQL->Add("delete from Addbook.DB ");
DM->Query1->SQL->Add("where NAME = '123'" );
DM->Query1->ExecSQL();

修改：
DM->Query1->Close();
DM->Query1->SQL->Clear();
DM->Query1->SQL->Add("update Addbook.DB ");
DM->Query1->SQL->Add("set TEL='" + newTel +"'");
DM->Query1->SQL->Add("where NAME = 'myname'" );
DM->Query1->ExecSQL();

查询

DM->Query1->Close();
DM->Query1->SQL->Clear();
DM->Query1->SQL->Add("select * from Addbook.DB ");
DM->Query1->SQL->Add("where NAME = 'myname'" );
DM->Query1->Open();

if( !DM->Query1->RecordCount )
return false;

for(int i=0;i<DM->Query1->RecordCount;i++)
ShowMessage(DM->Query1->FieldByName("NAME")->AsString);

wildhorse01 2003-01-08