有谁做过外部存储过程的请进

hchile 2006-09-26 09:43:51
我有一个非常重要的加密算法要在SQL的触发器中使用，因为SQL的加密是可以完整的还原的，但master表中可以增加一些外部的存储过程，而这些存储过程是作为DLL的形式使用的，可以用其他的语言书写，但我写了一个DLL，但不清楚它是怎样附加上去，以及书写时有哪些要求。
...全文
1556 19 打赏 收藏 转发到动态 举报
写回复
用AI写文章
19 条回复
切换为时间正序
请发表友善的回复…
发表回复
高兴981231 2006-09-27
  • 打赏
  • 举报
 回复
学习
luckysym 2006-09-26
  • 打赏
  • 举报
 回复
我只告诉你哪里找得到帮助

在SQLServer2000的联机丛书里的“生成SQLServer应用程序”一章下的“扩展存储过程编程”一节。

这里应该有你想要的。
hchile 2006-09-26
  • 打赏
  • 举报
 回复
非常多谢 libin_ftsafe(子陌红尘：当libin告别ftsafe)及cn_popeye(树上蹭灰)提供的资料。我有十多年没有用BASIC了，用惯了C；并且是要用到字位级的运算，在VB中不太习惯；这个算法十分重要，是涉及到收银机的问题。所在非常希望能用DLL形式的进行调用。
Well 2006-09-26
  • 打赏
  • 举报
 回复
关注。。
jtg98g3 2006-09-26
  • 打赏
  • 举报
 回复
学习！
cn_popeye 2006-09-26
  • 打赏
  • 举报
 回复
一下实例都来自sqlserver2000 online book。
使用 CLSID创建对象
下面的示例通过使用 SQL-DMO SQLServer 对象的 CLSID 创建该对象。

DECLARE @object int
DECLARE @hr int
DECLARE @src varchar(255), @desc varchar(255)
EXEC @hr = sp_OACreate '{00026BA1-0000-0000-C000-000000000046}',
@object OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), Source=@src, Description=@desc
RETURN
END

释放对象
EXEC @hr = sp_OADestroy @object
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END

调用 OLE 对象的方法
EXEC @hr = sp_OAMethod @object, 'Connect', NULL, 'my_server',
'my_login', 'my_password'
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END


获取属性
DECLARE @property varchar(255)
EXEC @hr = sp_OAMethod @object, 'HostName', @property OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END
PRINT @property

将 OLE 对象的属性设置为新值。
EXEC @hr = sp_OASetProperty @object, 'HostName', 'Gizmo'
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END

获取 OLE 对象的属性值。

A. 使用局部变量
下面的示例获取 HostName 属性（属于先前创建的 SQLServer 对象）并将其存储在局部变量中。

DECLARE @property varchar(255)
EXEC @hr = sp_OAGetProperty @object, 'HostName', @property OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END
PRINT @property

B. 使用结果集
下面的示例获取 HostName 属性（属于先前创建的 SQLServer 对象）并将其作为结果集返回给客户端。

EXEC @hr = sp_OAGetProperty @object, 'HostName'
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object
RETURN
END



hchile 2006-09-26
  • 打赏
  • 举报
 回复
VB好像也能反编译的，虽然好像是生成执行文件，但本质里还是一些文本的东西，感觉上不太安全。
my_sky321 2006-09-26
  • 打赏
  • 举报
 回复
2000是支持这个功能的,用VC++写win32的dll即可以.
用ole也可以,通过共享内存或命名管道调用.

不过前提都是要声明一个系统扩展存储过程.

你去SQL server 2000帮助那里找 系统扩展存储过程 的例子就明白了.
hchile 2006-09-26
  • 打赏
  • 举报
 回复
因为数据加密是要用到字位级的运算，所以还是用C++比较方便。
hchile 2006-09-26
  • 打赏
  • 举报
 回复
我的SQL是2000，DLL是用CBC写的，不知可不可以使用
子陌红尘 2006-09-26
  • 打赏
  • 举报
 回复
扩展DLL好像是要用VC编写,而且有一定要求,具体地参考SQL联机帮助

另一种是编写ole,参考下面的VB代码及调用示例

--SQL Server的存储过程调用Com组件


/*--下面的部分在VB中完成

首先我们先用VB 作一个最简单的组件

工程名称: testSQLCOM
类名: TestMath

'函数,计算两个整数相加的结果
Public Function AddMe(a As Long, b As Long) As Long
AddMe = a + b
End Function

编译生成后，我们就可以在 Sql Server 中对这个 Com 组件进行调用了
--*/

/*--下面是SQL中对上面DLL的调用--*/

--定义用到的变量
declare @err int,@src varchar(255),@desc varchar(255)
declare @obj int,@re int

--创建调用实例
exec @err=sp_OACreate 'testSQLCOM.TestMath', @obj out
if @err<>0 goto lberr --如果创建失败,则进行错误处理

--调用DLL中的函数
exec @err=sp_OAMethod @obj,'AddMe',@re out,100,200
if @err<>0 goto lberr --如果调用错误,则进行错误处理

print '返回的结果是:' + str(@re)

--完成后释放
exec sp_OADestroy @obj

return

lberr:
exec sp_oageterrorinfo 0,@src out,@desc out
select cast(@err as varbinary(4)) as 错误号
,@src as 错误源,@desc as 错误描述
fengfangfang 2006-09-26
  • 打赏
  • 举报
 回复
楼主是用2005吧 2000的应该没这功能
zyh110457 2006-09-26
  • 打赏
  • 举报
 回复
buhui xuexi
net205 2006-09-26
  • 打赏
  • 举报
 回复
用vc里那向导，然后代码自己再改...
pure_flame 2006-09-26
  • 打赏
  • 举报
 回复
1> 用vc6的Extend Stored Proc Wizard生成一个工程
2> 在里面写好你的函数，编译
3> 把生成好的dll拷贝至 MSSQL/Binn 目录
4> 使用exec sp_addextendedproc 'xp_example', 'xp_example.dll'
其中'xp_example'是你调用的存储过程名字，'xp_example.dll'是dll的名字
5> 最后执行，exec xp_example
xielingxu 2006-09-26
  • 打赏
  • 举报
 回复
关注
herony420 2006-09-26
  • 打赏
  • 举报
 回复
void CloseMySocket()
{
closesocket(sd_client);
if (g_bInitSocket)
WSACleanup();
sd_client=0;
}


RETCODE __declspec(dllexport) xp_RegistUser(SRV_PROC* pSrvProc)
{
RETCODE nRet = XP_NOERROR;
int iErrCode = 0;
bool bEnterCS = false;

int nSizeQ;
unsigned char szFlag;
char szMsisdn[14];
BYTE bType;
unsigned long cbMaxLen;
unsigned long cbActualLen;
BOOL fNull;

NET_DATA nData;

memset(&nData,0,sizeof(nData));
memset(szMsisdn,0,14);

int paramCount = srv_rpcparams(pSrvProc);
if (paramCount != 4)
{
return XP_ERROR;
}
if (sd_client == 0)
{
if (InitMySocket() )
{// 101:网络错误
iErrCode = 101;
sd_client = 0;
goto ERR_TAB;
}
}
nSizeQ = sizeof(NET_HLR_DATA)+4;
int ret = srv_paraminfo(pSrvProc, 1, &bType, &cbMaxLen, &cbActualLen,
NULL, &fNull);

if (cbActualLen){
int err;

/////////////////////////////////
nData.PacketLen = nSizeQ;
nData.PacketType = NET_HLR_PACKET;
memcpy(szMsisdn, srv_paramdata(pSrvProc, 1), cbActualLen);
ret = srv_paraminfo(pSrvProc, 2, &bType, &cbMaxLen, &cbActualLen,
NULL, &fNull);
memcpy(&nData.hlrdata.imsi,srv_paramdata(pSrvProc, 2),cbActualLen);
ret = srv_paraminfo(pSrvProc, 3, &bType, &cbMaxLen, &cbActualLen,
NULL, &fNull);
memcpy(&szFlag, srv_paramdata(pSrvProc, 3), cbActualLen);

//nData.hlrdata.imsi = 0;
nData.hlrdata.msc = 0;
//if (szFlag == 1) nData.hlrdata.sch = 0x11;
//if (szFlag == 0) nData.hlrdata.sch = 0x10;
nData.hlrdata.sch = szFlag;
nData.hlrdata.msisdn = _atoi64(szMsisdn);

/////////////////////////////////
InitCS();//初始化临界区
EnterCriticalSection( &g_csec);//开始进行临界区
bEnterCS = true;
err = send (sd_client, (char *)&nData, nSizeQ, 0);
if (err!=nSizeQ)
{
CloseMySocket();
iErrCode = 102;
goto ERR_TAB;
}
}
else {
return XP_ERROR;
}

ERR_TAB:
if (bEnterCS) LeaveCriticalSection( &g_csec);//离开临界区，注意在return之前一定要调用 否则下一次永远不会进入临界区
srv_paramsetoutput(pSrvProc,4,(BYTE *)&iErrCode,4,FALSE);
return XP_NOERROR;
}

RETCODE __declspec(dllexport) xp_GetCurLocation(SRV_PROC* pSrvProc)
{
RETCODE nRet = XP_NOERROR;
int iErrCode = 0;
bool bEnterCS = false;

TIMEVAL timeout;
FD_SET fdset;
timeout.tv_sec = 2;
timeout.tv_usec= 0;

int nSizeQ,nSizeR;
char szMsisdn[14];
BYTE bType;
unsigned long cbMaxLen;
unsigned long cbActualLen;
BOOL fNull;

char szImsi[20];
char sTime[20];

int iLac,iCi;
iLac = 0;
iCi = 0;

NET_DATA nData;
NET_DATA rData;

memset(&rData,0,sizeof(rData));
memset(szMsisdn,0,14);
memset(sTime,0,20);
int paramCount = srv_rpcparams(pSrvProc);
if (paramCount != 8)
{
return XP_ERROR;
}
if (sd_client == 0)
{
if (InitMySocket() )
{// 101:网络错误
iErrCode = 101;
sd_client = 0;
goto ERR_TAB;
}
}

nSizeQ = sizeof(NET_QUERY_VLR)+4;
nSizeR = sizeof(NET_QUERY_VLR_RESP)+4;

int ret = srv_paraminfo(pSrvProc, 1, &bType, &cbMaxLen, &cbActualLen,
NULL, &fNull);
if (cbActualLen){
int err;

/////////////////////////////////
nData.PacketLen = nSizeQ;
nData.PacketType = NET_QUERY_VLR_PACKET;
memcpy(szMsisdn, srv_paramdata(pSrvProc, 1), cbActualLen);
nData.queryvlr.msisdn = _atoi64(szMsisdn);
nData.queryvlr.imsi = 0;
/////////////////////////////////
InitCS();//初始化临界区
EnterCriticalSection( &g_csec);//开始进行临界区
bEnterCS = true;
err = send (sd_client, (char *)&nData, nSizeQ, 0);
if (err!=nSizeQ)
{
CloseMySocket();
iErrCode = 102;
goto ERR_TAB;
}

FD_ZERO( &fdset);
FD_SET ( sd_client, &fdset);

err = select(
0,
&fdset,
NULL,
NULL,
&timeout);
if( err != 1)
nRet = XP_ERROR;

err = recv( sd_client, (char*)&rData, nSizeR, 0);
if(err < nSizeR)
{
CloseMySocket();
iErrCode = 103;
goto ERR_TAB;
}


// 测试值
//rData.queryvlrresp.imsi = 460001234567890;
//rData.queryvlrresp.vlrdata.cgi = 1;
//rData.queryvlrresp.vlrdata.time = time(NULL);
//rData.queryvlrresp.vlrdata.updatetype=49;
//////////////////////////////////
_i64toa(rData.queryvlrresp.imsi,szImsi,10);
struct tm *now;
now = localtime( (long *)&rData.queryvlrresp.vlrdata.time);
sprintf(sTime ,"%04d-%02d-%02d %02d:%02d:%02d",
now->tm_year+1900,
now->tm_mon + 1,
now->tm_mday,
now->tm_hour,
now->tm_min,
now->tm_sec);
//转换成lac与ci
iLac = rData.queryvlrresp.vlrdata.cgi>>16;
iCi = rData.queryvlrresp.vlrdata.cgi & 0xffff;
}
else {
return XP_ERROR;
}

ERR_TAB:
if (bEnterCS) LeaveCriticalSection( &g_csec);//离开临界区，注意在return之前一定要调用 否则下一次永远不会进入临界区
srv_paramsetoutput(pSrvProc,2,(BYTE *)szImsi,15,FALSE);
srv_paramsetoutput(pSrvProc,3,(BYTE *)&(iLac),4,FALSE);
srv_paramsetoutput(pSrvProc,4,(BYTE *)&(iCi),4,FALSE);
srv_paramsetoutput(pSrvProc,5,(BYTE *)&(rData.queryvlrresp.vlrdata.updatetype),1,FALSE);
srv_paramsetoutput(pSrvProc,6,(BYTE *)&sTime,19,FALSE);
srv_paramsetoutput(pSrvProc,7,(BYTE *)&iErrCode,4,FALSE);
srv_paramsetoutput(pSrvProc,8,(BYTE *)&(rData.queryvlrresp.vlrdata.sch),1,FALSE);
return XP_NOERROR;

}
herony420 2006-09-26
  • 打赏
  • 举报
 回复
下面是我用sql2000所做的一个扩展存储过程。停止sql server后放到bin下，可以通过附加到进程的方式进行调试


#include <stdafx.h>
#include <stdlib.h>
#include <time.h>

#define XP_NOERROR 0
#define XP_ERROR 1
#define MAXCOLNAME 25
#define MAXNAME 25
#define MAXTEXT 255

#ifdef __cplusplus
extern "C" {
#endif

#ifdef _WIN32
#include <winsock.h>
#else
#include <errno.h>
#endif

#if defined(_MSC_VER)
# pragma comment(lib,"wsock32.lib")
#elif defined(__BORLANDC__)
# pragma comment(lib,"mswsock.lib")
#endif

#pragma pack(1)
enum
{
LOCAL_USER =0,
OUTSIDE_USER =1,
FOREIGN_USER =2,
///////////////
NET_ABIS_PACKET =3,
NET_HLR_PACKET =4,
NET_A_PACKET =5,
NET_SMS_SUBMIT_PACKET =7,//add 2002-9-29
NET_SMS_DELIEVER_PACKET =8,//add 2002-9-29
SS7_STAT_PACKET =9,
NET_QUERY_VLR_PACKET = 10,
};//Define User Type & Packet Type


typedef struct
{
unsigned int msisdn;//
unsigned int cgi;//
unsigned char updatetype;//
int time;//时间
unsigned char sch;// }VLR_DATA;

typedef struct
{
__int64 imsi;
__int64 msisdn;//8613XXXXXXXXX
unsigned char sch;//UserType;
unsigned int msc;
// int sch;
}NET_HLR_DATA;

typedef struct
{
__int64 imsi;
__int64 msisdn;
}NET_QUERY_VLR;


typedef struct
{
__int64 imsi;//卡号
VLR_DATA vlrdata;//直取VLR数据
}NET_QUERY_VLR_RESP;//查询返回数据如果返回的数据全为0 则表标 查询失败


//网络上所有数据包
typedef struct
{
unsigned short PacketLen;
unsigned short PacketType;
union
{
NET_QUERY_VLR queryvlr;
NET_HLR_DATA hlrdata;
NET_QUERY_VLR_RESP queryvlrresp;
};
}NET_DATA;
#pragma pack()

SOCKET sd_client = 0;
BOOL g_bInitSocket = false;
char szFileName[MAX_PATH+1];
//互斥
CRITICAL_SECTION g_csec;
BOOL g_bcs = false;


int InitMySocket();
void CloseMySocket();

RETCODE __declspec(dllexport) xp_GetCurLocation(SRV_PROC *srvproc);
RETCODE __declspec(dllexport) xp_RegistUser(SRV_PROC *srvproc);

#ifdef __cplusplus
}
#endif

void InitCS()
{
if (!g_bcs)
InitializeCriticalSection( &g_csec);
g_bcs = true;
}
void DeleteCS()
{
if (g_bcs)
DeleteCriticalSection( &g_csec);
g_bcs = false;
}
int InitMySocket()
{
int iErr;

u_short iPort;
struct sockaddr_in addr_srv;

char pszFileName[MAX_PATH]; //= "c:\\winnt\\StorProc.ini";
GetWindowsDirectory(pszFileName,MAX_PATH);
strcat(pszFileName,"\\StorProc.ini");

char pszHost[20];
GetPrivateProfileString("net","ip","192.168.0.201",pszHost,16,pszFileName);
iPort = GetPrivateProfileInt(
"net",
"port",
8080,
pszFileName
);

WSADATA wsaData;
WORD wVersionRequested;

wVersionRequested = MAKEWORD( 1,1 );
iErr = WSAStartup( wVersionRequested, &wsaData );
if ( iErr != 0 ) {
//WriteInfo("Error: Winsock not available\n" + iErr);
return 1;
}else g_bInitSocket = true;

sd_client = socket(PF_INET, SOCK_STREAM, 0);
if (sd_client == INVALID_SOCKET)
{
//WriteInfo("没有更多的socket资源");
return 1;
}

addr_srv.sin_family = PF_INET;
addr_srv.sin_addr.S_un.S_addr = inet_addr(pszHost);
addr_srv.sin_port = htons(iPort);

TIMEVAL timeout;
FD_SET fdset;
timeout.tv_sec = 2;
timeout.tv_usec= 0;
FD_ZERO( &fdset);
FD_SET ( sd_client, &fdset);
iErr = select(
0,

NULL,
&fdset,
NULL,

&timeout);

iErr = connect(sd_client, (struct sockaddr *) &addr_srv,
sizeof(addr_srv));
if (iErr == INVALID_SOCKET)
{
return 1;
}
else
{
return 0;
}
}

ljs1519 2006-09-26
  • 打赏
  • 举报
 回复
关注，学习！
mysql中编写一个存储过程_mysql编写存储过程（1）
存储过程：其实就是存储在数据库中，有一些逻辑语句与SQL语句组成的函数。由于是已经编译好的语句，所以执行速度快，而且也安全。打开mysql的控制台，开始编写存储过程。实例1：编写存储过程：执行存储过程：查看...
Android 存储学习之在外部存储中读写文件
上节学习了如何在手机内部存储中读写文件，本节学习如何在手机的外部存储中读写文件。那就是如何在Sdcard中读写文件。 那我们还是用以前登录界面的例子举例说明，（登录界面请看上节Android 存储学习之在内部存储中...
mysql如何在if中设置return_mysql 存储过程 if return
存储过程的优点有一箩筐。不过最主要的还是执行效率和SQL 代码封装。特别是 SQL 代码封装功能，如果没有存储过程，在外部程序访问数据库时(例如 PHP)，要组织很多 SQL 语句。特别是业务逻辑复杂的时候，一大堆的 SQL...
Android 外部存储权限分析
不知道你有么有发现，KitKat之后的版本不再支持用户对外置SDcard(Secondary Storage)的写入等操作。如果用户想要 将文件等copy到手机中，则只能存储到内部存储器中，而无法存储到外置sdcard中，而且无法创建新的...
存储过程、函数与触发器
根据提示，在右侧编辑器补充代码...存储过程是为了完成特定功能的 SQL 语句集，经编译创建并保存在数据库中，用户可通过指定存储过程的名字并给定参数（需要时）来调用执行。是由 SQL 语句和过程式语句组成的代码片段。
MS-SQL Server

34,590

社区成员

254,589

社区内容

发帖
与我相关
我的任务
社区描述
MS-SQL Server相关内容讨论专区
社区管理员
  • 基础类社区
  • 二月十六
  • 卖水果的net
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

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

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

+ 用AI写文章