就这点分了！大侠帮修改一下，万分感激！

freckyliao 2009-10-13 05:01:10
VC6.0 Win32 Dynamic-Link Library代码：
strCn="provider=SQLOLEDB;data source="+server

+";initial catalog="+db

+";userID="+UserName

+";Password="+Pwd;

_variant_t bcnstr=_variant_t(strCn);

_variant_t bunstr=_variant_t(UserName);

_variant_t bpwdstr=_variant_t(Pwd);



#include "gettime.h"

#include <iostream.h>

#include <comdef.h>

#include <atlbase.h>

#pragma warning(disable:4146)

#import "C:\Program Files\Common Files\System\ado\msado15.dll"no_namespace rename("EOF","adoEOF")

#pragma warning(default:4146)

#include <iomanip.h>

#include <string>

using namespace std;



__declspec(dllexport) LPTSTR GetTime()

{

	string ServerName;

	string UserID;

	string Password;

	string strCn;

	::CoInitialize(NULL);

	_ConnectionPtr pConn;

	pConn.CreateInstance(__uuidof(Connection));

	_RecordsetPtr pRs;

	pRs.CreateInstance(__uuidof(Recordset));

	_CommandPtr pCommand;

	pCommand.CreateInstance(__uuidof(Command));



	//open GetSVRDT.ini to get sql parameter

	GetPrivateProfileString(NULL,"ServerName",NULL,ServerName.GetBuffer(MAX_PATH),MAX_PATH,".//GetSVRDT.ini");   

	GetPrivateProfileString(NULL,"UserID",NULL,ServerName.GetBuffer(MAX_PATH),MAX_PATH,".//GetSVRDT.ini");

	GetPrivateProfileString(NULL,"Password",NULL,ServerName.GetBuffer(MAX_PATH),MAX_PATH,".//GetSVRDT.ini");

	//pConn->Open(_bstr_t("Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=True;User ID=sa;Password=123623255;Initial Catalog=Northwind;Data Source=CNAECFUYD000072"),"","",adModeUnknown);

	strCn="provider=SQLOLEDB;data source="+ServerName+";initial catalog="+db+";userID="+UserID+";Password="+Password+"";

	_variant_t bcnstr=_variant_t(strCn);

	_variant_t bunstr=_variant_t(UserName);

	_variant_t bpwdstr=_variant_t(Pwd);

	//string strConn="Provider=SQLOLEDB.1;Persist Security Info=True;Data Source="+ServerName+";UserID="+UserID+";Password="+Password+;

	//pConn->Open(_bstr_t("Provider=SQLOLEDB.1;Persist Security Info=True;User ID=sa;Password=123623255;Initial Catalog=traceability;Data Source=cnaecfuyd000072"),"","",adModeUnknown);

	pConn->Open(_bstr_t(strCn),"","",adModeUnknown);

	

	pCommand->ActiveConnection=pConn;

	pCommand->CommandText=_bstr_t("select convert(varchar(10),getdate(),110)+space(1)+convert(varchar(10),getdate(),108) as sysTime");

		//pCommand->CommandText=_bstr_t("Select Convert(varchar(20),getdate(),120) AS sysTime");

	pCommand->CommandType=adCmdText;

		//pCommand->CommandTimeout=(long)300;

	pCommand->Parameters->Refresh();



	pRs=pCommand->Execute(NULL,NULL,adCmdUnknown);

	_variant_t varValue=pRs->GetCollect("sysTime");

	_bstr_t bstrValue=varValue.bstrVal;

	LPTSTR lpBuffer = new TCHAR[100];

	pRs->Close();

	pConn->Close();

		//lpBuffer=bstrValue;

		//_stprintf(lpBuffer,_T("%s"),(LPCTSTR)bstrValue);

	_stprintf(lpBuffer,_T("%s"),(LPCTSTR)bstrValue);

	::CoUninitialize();

	return lpBuffer;

}

代码是实现从SQL 服务器取时间，以String 型返回。
现在User ID;Password;Initial Catalog;Data Source要从server.ini 中取。
要怎么改呢？大侠帮忙改下。
...全文
108 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
frecky8504 2009-10-16
  • 打赏
  • 举报
 回复
答案来了。感谢各位大佬帮忙，最后还是自己搞定了。
ini 文件：
[Connection]
SqlServerName=cnaecfuyd000072
SqlUSER=sa
SqlPWD=123623255
SqlDatabase=Northwind
char ServerName[200];

	char UserID[200];

	char Password[200];

	char Database[200];

	GetPrivateProfileString(_T("Connection"),_T("SqlServerName"),_T(""),ServerName,sizeof(ServerName),_T(".\\GetSVRDT.ini")); 

	GetPrivateProfileString(_T("Connection"),_T("SqlUSER"),_T(""),UserID,sizeof(UserID),_T(".\\GetSVRDT.ini"));

	GetPrivateProfileString(_T("Connection"),_T("SqlPWD"),_T(""),Password,sizeof(Password),_T(".\\GetSVRDT.ini"));

	GetPrivateProfileString(_T("Connection"),_T("SqlDatabase"),_T(""),Database,sizeof(Database),_T(".\\GetSVRDT.ini"));

	string strConn;

	strConn=strConn+"provider=SQLOLEDB.1;Persist Security Info=True;data source="+ServerName

		+";Initial Catalog="+Database

		+";User ID="+UserID

		+";Password="+Password;
frecky8504 2009-10-15
  • 打赏
  • 举报
 回复
上面的取ini文件有问题。
freckyliao 2009-10-15
  • 打赏
  • 举报
 回复
没人解决？
freckyliao 2009-10-14
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 zhaohongbo83 的回复:]
GetPrivateProfileString("数据库", "主机名", NULL, m_szHost, sizeof(m_szHost), IniFile) ;
GetPrivateProfileString("数据库", "用户名", NULL, m_szUser, sizeof(m_szUser), IniFile) ;
GetPrivateProfileString("数据库", "密码", NULL, m_szPwd, sizeof(m_szPwd), IniFile) ;
GetPrivateProfileString("数据库", "默认库", NULL, m_szDef, sizeof(m_szDef), IniFile) ;

try
{
//连接XdData
HRESULT hr = m_Connection.CreateInstance(__uuidof(Connection));
sprintf(m_szConnect,"provider = sqloledb;server=%s;database=%s;", m_szHost, m_szDef);
hr=m_Connection->Open(_bstr_t(m_szConnect),_bstr_t(m_szUser),_bstr_t(m_szPwd),-1);
sprintf(m_szTmp, "数据库连接成功!");
//连接XdData
}
catch(_com_error & e)
{
sprintf(m_szTmp, "数据库打开失败,错误原因：%s\n",LPCTSTR(e.Description()));
MessageBox( NULL, m_szTmp,"失败提示",MB_OK );
return 0 ;
}
参考一下，

[/Quote]

我的ini文件这样写的：
[Connection]
SqlServerName=cnaecfuyd000072
SqlUSER=sa
SqlPWD=123623255
SqlDatabase=master 



#include "gettime.h"

#include <comdef.h>

#include <atlbase.h>

#pragma warning(disable:4146)

#import "C:\Program Files\Common Files\System\ado\msado15.dll"no_namespace rename("EOF","adoEOF")

#pragma warning(default:4146)

#include <iomanip.h>

#include <string>

using namespace std;



__declspec(dllexport) LPTSTR GetTime()

{

    //CString serName;

    char ServerName[20];

    char UserID[20];

    char Password[20];

    char SqlDatabase[20];





    ::CoInitialize(NULL);



    _ConnectionPtr pConn;

    pConn.CreateInstance(__uuidof(Connection));

    _RecordsetPtr pRs;

    pRs.CreateInstance(__uuidof(Recordset));

    _CommandPtr pCommand;

    pCommand.CreateInstance(__uuidof(Command));

    //-------------------------Open GetSVRDT.ini to get sql parameter---------------------------



    GetPrivateProfileString("Connection","SqlServerName",NULL,ServerName,20,".\\GetSVRDT.ini"); 

    GetPrivateProfileString("Connection","SqlUSER",NULL,UserID,20,".\\GetSVRDT.ini");

    GetPrivateProfileString("Connection","SqlPWD",NULL,Password,20,".\\GetSVRDT.ini");

    GetPrivateProfileString("Connection","SqlDatabase",NULL,SqlDatabase,20,".\\GetSVRDT.ini");



    string strConn("provider=SQLOLEDB.1;Persist Security Info=True;Initial Catalog='+SqlDatabase+';data source='+ServerName+';User ID='+UserID+';Password='+Password+'");

    pConn->Open((_bstr_t)strConn.c_str(), "", "", -1);

    pCommand->ActiveConnection=pConn;

    pCommand->CommandText=_bstr_t("select convert(varchar(10),getdate(),110)+space(1)+convert(varchar(10),getdate(),108) as sysTime");

        //pCommand->CommandText=_bstr_t("Select Convert(varchar(20),getdate(),120) AS sysTime");

    pCommand->CommandType=adCmdText;

        //pCommand->CommandTimeout=(long)300;

    pCommand->Parameters->Refresh();

    pRs=pCommand->Execute(NULL,NULL,adCmdUnknown);

    _variant_t varValue=pRs->GetCollect("sysTime");

    _bstr_t bstrValue=varValue.bstrVal;

    LPTSTR lpBuffer = new TCHAR[100];

    pRs->Close();

    pConn->Close();

        //lpBuffer=bstrValue;

        //_stprintf(lpBuffer,_T("%s"),(LPCTSTR)bstrValue);

    _stprintf(lpBuffer,_T("%s"),(LPCTSTR)bstrValue);

    ::CoUninitialize();

    return lpBuffer;

}

怎么调用时候出错呢？帮看下哪有问题。谢谢
zhaohongbo83 2009-10-14
  • 打赏
  • 举报
 回复
GetPrivateProfileString("数据库", "主机名", NULL, m_szHost, sizeof(m_szHost), IniFile) ;
GetPrivateProfileString("数据库", "用户名", NULL, m_szUser, sizeof(m_szUser), IniFile) ;
GetPrivateProfileString("数据库", "密码", NULL, m_szPwd, sizeof(m_szPwd), IniFile) ;
GetPrivateProfileString("数据库", "默认库", NULL, m_szDef, sizeof(m_szDef), IniFile) ;

try
{
//连接XdData
HRESULT hr = m_Connection.CreateInstance(__uuidof(Connection));
sprintf(m_szConnect,"provider = sqloledb;server=%s;database=%s;", m_szHost, m_szDef);
hr=m_Connection->Open(_bstr_t(m_szConnect),_bstr_t(m_szUser),_bstr_t(m_szPwd),-1);
sprintf(m_szTmp, "数据库连接成功!");
//连接XdData
}
catch(_com_error & e)
{
sprintf(m_szTmp, "数据库打开失败,错误原因：%s\n",LPCTSTR(e.Description()));
MessageBox( NULL, m_szTmp,"失败提示",MB_OK );
return 0 ;
}
参考一下，
freckyliao 2009-10-14
  • 打赏
  • 举报
 回复
我用的是WIN32 dll，在里面#include <afx.h> 的时候说已经#include <windows.h>，无法编译。
freckyliao 2009-10-14
  • 打赏
  • 举报
 回复
要怎么改？
我在函数里面定义CString 的时候说是 不能include <windows.h>。
去掉了以后还是这么提示，要不就说找不到<ztlstr.h>。
所以这个GetPrivateProfileString我就不知道里面参数怎么传了。
shakaqrj 2009-10-13
  • 打赏
  • 举报
 回复
lpAppName
[in] Pointer to a null-terminated string that specifies the name of the section containing the key name. If this parameter is NULL, the GetPrivateProfileString function copies all section names in the file to the supplied buffer.

lpFileName
[in] Pointer to a null-terminated string that specifies the name of the initialization file. If this parameter does not contain a full path to the file, the system searches for the file in the Windows directory.

wangk 2009-10-13
  • 打赏
  • 举报
 回复
你GetPrivateProfileString用法也太神奇了吧？难道连MSDN都不屑一看么？
我在CSDN参与的3000个帖子
 今日偶然翻到，感慨万千 1：申述：版主，是否扣了我的专家分？ 2：100分急求，随机输出十个小写字母，但是，要求这十个字母不相同 3：求Sn=a+aa+aaa+…+aaa…a（n个a）之值 4：数组题 望高手帮忙！ 5：呵呵，来推荐一下我的网站，本站提供大量当今流行的免费的音乐和免费电影，常用软件、游戏、精美图库下载,希望对网友有帮助!顺便散分! 6：VBA请教怎
word 转为 html5,怎么把word转化为纯文本
如何将有 流程图的图片文件 转换 成纯文本的word？而且要保证 流程图不乱。 大侠们了。急用埃万分感激。方法是：使用文字识别工具这类软件(例如：Office中的“Microsoft Office 工具”→"Microsoft Office Document Imaging")。怎样设置让复制到Word的文字内容为纯文本格式要把Excel中的内容复制到Word中去，不要表格，要纯文本，以word2...
别人修改夏普3.5寸TFT的经验
修改2410的3.5寸显示驱动遇到下半屏无图像的问题？我在调试2410 的TFT显示驱动时遇到一个始终解决不了的问题，即只能正常显示上半部屏幕，下班部分则只是点亮，没有图像。请求各位大侠慷慨帮助：） 5O(U1 *  我选用了一款夏普的3.5寸的TFT触摸屏：型号为LQ035Q7DH01,电路是自己设计的，原先的2410板接的是6.4寸的TFT屏，所以要自己将wince内6.4寸的显示驱动改成
（经典中的经典！）IT学生解惑真经(转)，真会有人看完这15万字吗
首先欢迎大家加入博主组建的Java学习技术交流群呀！群号：853665602，有什么问题都可以在里面询问交流，还有博主整理的很多资料，需要大家的加入，才能壮大这个组织！群里面有很多的我整理的内部资源：Java题库，大厂面试题，学习大纲，自学课程大纲等，希望欢迎到很多一起学习Java的小伙伴，感谢你们的支持！ 在校的IT学生有几百万 都在为如何如何学习才能找到工作、融入社会而迷惑 我们需要的不是灵丹妙药 而是一本让你少走几年弯路的 IT学生解惑真经 肖舸 杨中科 左飞 著 这是...
转帖：开源邪说！—— 盲目开源到底是什么？到底伤害着谁？
作者：chensheng913 现在的软件行业，开源似乎成了这个行业里最时尚的语言，大有见了朋友不问：“你今天开源了吗”就誓不罢休的趋势！一个行业，揭了自己的老底，把自己完整的裸露在别人的面前，而行业中人却以此感到光荣，骄傲，难道人类真的已经升华到了“无私”的境界了？ 但我大胆的断定这是不可能的！如此盲目的开源，对行业的影响已经属于非健康的了，迟早会给整个软件行业带来伤害……而这一切的背后操控主谋...
数据库

4,017

社区成员

39,806

社区内容

发帖
与我相关
我的任务
社区描述
VC/MFC 数据库
社区管理员
  • 数据库
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章