3953
社区成员
- 全部
ado+sql
需要将实时采集的大量二进制数据存入sql server,用的是ado + sql server
各位，谁有c/c++实现的用ado添加纪录并且将二进制数据填入某一字段的代码，借我参考参考。
各位，谁有c/c++实现的用ado添加纪录并且将二进制数据填入某一字段的代码，借我参考参考。
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
small_wei 2003-02-16
void CADOBlobDlg::OnSaveinfo()
{
if(!m_bModify) return;
UpdateData();
if(m_pBMPBuffer == NULL || m_hPhotoBitmap == NULL || m_UserName == "" || m_Old == "")
{
AfxMessageBox("您没有提供完整的用户信息。\r\n这些信息包括:用户名、年龄、照片");
return;
}
m_buttonSaveInfo.EnableWindow(FALSE);
char *pBuf = m_pBMPBuffer;
VARIANT varBLOB;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];
if(m_bNewUser)
m_pRecordset->AddNew();
m_pRecordset->PutCollect("username",_variant_t(m_UserName));
m_pRecordset->PutCollect("old",atol(m_Old));
if(pBuf)
{
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = m_nFileLen;
psa = SafeArrayCreate(VT_UI1, 1, rgsabound);
for (long i = 0; i < (long)m_nFileLen; i++)
SafeArrayPutElement (psa, &i, pBuf++);
varBLOB.vt = VT_ARRAY | VT_UI1;
varBLOB.parray = psa;
m_pRecordset->GetFields()->GetItem("photo")->AppendChunk(varBLOB);
}
m_pRecordset->Update();
m_buttonDeleteUser.EnableWindow();
ResetControls();
m_bNewUser = FALSE;
m_bModify = FALSE;
}
{
if(!m_bModify) return;
UpdateData();
if(m_pBMPBuffer == NULL || m_hPhotoBitmap == NULL || m_UserName == "" || m_Old == "")
{
AfxMessageBox("您没有提供完整的用户信息。\r\n这些信息包括:用户名、年龄、照片");
return;
}
m_buttonSaveInfo.EnableWindow(FALSE);
char *pBuf = m_pBMPBuffer;
VARIANT varBLOB;
SAFEARRAY *psa;
SAFEARRAYBOUND rgsabound[1];
if(m_bNewUser)
m_pRecordset->AddNew();
m_pRecordset->PutCollect("username",_variant_t(m_UserName));
m_pRecordset->PutCollect("old",atol(m_Old));
if(pBuf)
{
rgsabound[0].lLbound = 0;
rgsabound[0].cElements = m_nFileLen;
psa = SafeArrayCreate(VT_UI1, 1, rgsabound);
for (long i = 0; i < (long)m_nFileLen; i++)
SafeArrayPutElement (psa, &i, pBuf++);
varBLOB.vt = VT_ARRAY | VT_UI1;
varBLOB.parray = psa;
m_pRecordset->GetFields()->GetItem("photo")->AppendChunk(varBLOB);
}
m_pRecordset->Update();
m_buttonDeleteUser.EnableWindow();
ResetControls();
m_bNewUser = FALSE;
m_bModify = FALSE;
}
hdqqq 2003-02-16
thank u
hdqqq 2003-02-15
非常感谢，不知有没有直接增加纪录的例子，有的话就结贴了。
small_wei 2003-02-14
void CADOBlobDlg::ReadData()
{
DestroyPhoto(); ///清除原图像
if(m_pRecordset->adoEOF||m_pRecordset->BOF)
{
m_UserName.Empty();
m_Old.Empty();
UpdateData(FALSE);
return;
}
long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;
if(lDataSize > 0)
{
_variant_t varBLOB;
varBLOB = m_pRecordset->GetFields()->GetItem("photo")->GetChunk(lDataSize);
if(varBLOB.vt == (VT_ARRAY | VT_UI1))
{
if(m_pBMPBuffer = new char[lDataSize+1]) ///重新分配必要的存储空间
{
char *pBuf = NULL;
SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
memcpy(m_pBMPBuffer,pBuf,lDataSize); ///复制数据到缓冲区m_pBMPBuffer
SafeArrayUnaccessData (varBLOB.parray);
m_nFileLen = lDataSize;
m_hPhotoBitmap = BufferToHBITMAP(); ///生成BITMAP对象
}
}
}
m_UserName = m_pRecordset->GetCollect("username").bstrVal;
m_Old.Format("%d",m_pRecordset->GetCollect("old").lVal);
m_editUserName.EnableWindow();
m_editOld.EnableWindow();
m_buttonSelectPhoto.EnableWindow();
m_buttonDeleteUser.EnableWindow();
UpdateData(FALSE);
}
{
DestroyPhoto(); ///清除原图像
if(m_pRecordset->adoEOF||m_pRecordset->BOF)
{
m_UserName.Empty();
m_Old.Empty();
UpdateData(FALSE);
return;
}
long lDataSize = m_pRecordset->GetFields()->GetItem("photo")->ActualSize;
if(lDataSize > 0)
{
_variant_t varBLOB;
varBLOB = m_pRecordset->GetFields()->GetItem("photo")->GetChunk(lDataSize);
if(varBLOB.vt == (VT_ARRAY | VT_UI1))
{
if(m_pBMPBuffer = new char[lDataSize+1]) ///重新分配必要的存储空间
{
char *pBuf = NULL;
SafeArrayAccessData(varBLOB.parray,(void **)&pBuf);
memcpy(m_pBMPBuffer,pBuf,lDataSize); ///复制数据到缓冲区m_pBMPBuffer
SafeArrayUnaccessData (varBLOB.parray);
m_nFileLen = lDataSize;
m_hPhotoBitmap = BufferToHBITMAP(); ///生成BITMAP对象
}
}
}
m_UserName = m_pRecordset->GetCollect("username").bstrVal;
m_Old.Format("%d",m_pRecordset->GetCollect("old").lVal);
m_editUserName.EnableWindow();
m_editOld.EnableWindow();
m_buttonSelectPhoto.EnableWindow();
m_buttonDeleteUser.EnableWindow();
UpdateData(FALSE);
}
hdqqq 2003-02-14
有分送的。
【VBAPlanet】VBA+ADO+SQL，这样取数真香 更重要的原因是，在EXCEL VBA中，一般只有通过ADO，才可以使用强大的SQL查询语言访问外部数据源，进而查、改、增、删相关数据源中的数据。 延伸在具体编程操作上，就形成了四步走发展战略： VBA引用ADO类库
ADO连接SQL数据库的几种方式 VB使用ADO数据库可以分为有源数据库和无源数据库，即是否使用了DSN数据源。一、使用DSN连接。使用 ODBC DSN 连接数据库有两种方式，一种为SYSTEM DSN、一种为DSN文件，因此在使用DSN连接方式之前必段创建一个SYSTEM ...
ADO + SQL问题及解决方法 1、ADO连接SQL，打开数据集时，如果是单条语句的，后跟注释，则执行时无结果集返回，如果是有分行符则正常（在查询分析器当然是正常的），原因不详，如： 'Select * from ABC --memo' //无返回 'Select * from...
Excel_VBA＋ADO＋SQL入门教程_－_汇总.pdf 首先，必须严肃脸说明的是，对于普通 Excel 使用者而言，VBA、SQL 以及以 后提及的 ADO 并不是非学不可的，非学不可的...存仓库，进而储存、分析远超 Excel 体积的数据量,本书描述了ADO和VBA喝SQL in Excel平台的运用
VBA从入门到精通（控件+类模块+ADO+SQL数据库） ? ? ? 本课程属性Excel?VBA中比较高阶的课程，主要讲解关于各种事件的应用，各种控件的应用，如果...第2章：窗体控件应用第3章：ActiveX控件应用第4章：类模块应用第5章：vba+ado+sql第6章：实战应用（考试系统开发）
Excel VBA_ADO+SQL实例集锦.doc.txt ‘订单生成系统.xls ‘f6-第6列，f2-第2列 Private Sub Worksheet_Activate() On Error Resume Next Dim x As Object, yy As Object, sql As String Set x = CreateObject("ADODB....2，用ADO Connection对象查询
C++ + ADO + Sql2012 简单例子（适合菜鸟） 关于vc6.0/VS中实现ADO SQL数据库连接的文章网上虽然很多，但大多写的很繁琐，对于我们这样的菜鸟来说，还是很希望有一篇简单化的文章的。希望跟我一样的菜鸟们学得开心！
校信息管理系统（ADO+SQL2000）+源码 一、编程环境: windows2003 +visual stdio c++ .net,Ado + SQL2000 二、SQL设置： 将在SQL2000下建立schooldata数据库，导入数据文件 三、导入数据： data目录下有school_back数据库备分文件 操作：用SQL企业管理器...
校信息管理系统（ADO+SQL2000） 本程序是鬼男开发，一切版权归 鬼男 所有，一、编程环境: windows2003 +visual stdio c++ .net,Ado + SQL2000二、SQL设置：将在SQL2000下建立schooldata数据库，导入数据文件三、导入数据：data目录下有school_back...
VC+ADO+SQL 仓库管理系统 VC项目开发自学手册上的仓库管理系统, 非常好, 只是源光盘上连接数据库的程序有一点问题, 修改了一下, 可以用了. 是学习VC+ADO+SQL的好例子. (VC6+SERVER2000)
