mssql数据库连接程序

  • 栏目:数据 时间:2020-05-06 17:06
<返回列表

mssql数据库连接程序

原文地址:

%@ LANGUAGE = VBScript CodePage = 936%!--#include file=safe.asp --%On Error Resume NextResponse.Buffer = Truedim startimedim conndim connstrdim sqldatabase,sql_pass_word,sql_User_ID,sql_Data_Sourcestartime=timer()Set conn = Server.CreateObject(ADODB.Connection)connstr = Provider=SQLOLEDB.1;Password='';Persist Security Info=False;User ID='sa';Initial Catalog='m1';Data Source='127.0.0.1'conn.Open connstr'ConnStr = Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Data Source=(local)'conn.Open connstr'conn.DefaultDatabase = dgjobSub CreateRS(sql,lv1,lv2) set rs=server.CreateObject(adodb.recordset) rs.open sql,conn,lv1,lv2End sub

//stdafx.h
#import "c:program filescommon filessystemadomsado15.dll" no_namespace rename("EOF","adoEOF") 
//主程序初始化函数
BOOL CADO2App::InitInstance()
{
    AfxEnableControlContainer();

function CloseDbConn.closeSet conn = NothingEnd Function

    AfxOleInit();//初始化COM库
//--------------------------------------------

If Err ThenResponse.Write !-- Err.Number : Err.Description -- vbcrlfResponse.Write !-- conn.ConnectionString -- vbcrlfResponse.Write 数据库连接出错,请检查连接字串。'注释,需要把这几个字翻译成英文。err.ClearSet Conn = NothingResponse.EndEnd If

下面是ACCESS的:

function rscloseset rs=nothingend function

    HRESULT hr;
    try
    {    
        hr = m_pConnection.CreateInstance("ADODB.Connection");///创建Connection对象
        if(SUCCEEDED(hr))        {
            hr = m_pConnection->Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=test.mdb","","",adModeUnknown);///连接数据库
            ///上面一句中连接字串中的Provider是针对ACCESS2000环境的,对于ACCESS97,需要改为:Provider=Microsoft.Jet.OLEDB.3.51;  }
        }
    }
    catch(_com_error e)///捕捉异常
    {
        CString errormessage;
        errormessage.Format("连接数据库失败!rn错误信息:%s",e.ErrorMessage());
        AfxMessageBox(errormessage);///显示错误信息
        return FALSE;
    } 

function conncloseconn.closeset conn=nothingend function

下面是连接SQL SERVER的

%

CString strSQL;
    HRESULT hr;
    try
    {    
        hr=m_pConnection.CreateInstance(__uuidof(Connection));
        m_pConnection->CursorLocation=adUseClient;
        strSQL="Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TEST;Data Source=yjm";    
        if(SUCCEEDED(hr))
        {
            hr=m_pConnection->Open(_bstr_t(strSQL),"","",-1);            
        }
    }
    catch(_com_error e)///捕捉异常
    {
        CString errormessage;
        errormessage.Format("连接数据库失败!韦德体育 ,rn错误信息:%s",e.ErrorMessage());
        AfxMessageBox(errormessage);///显示错误信息
        return FALSE;
    } 
    //AfxMessageBox("connected~~");

!---2147217843:用户 'cshrdb1' 登录失败。--!--Provider=SQLOLEDB.1;Password='hncshr!@#$%';Persist Security Info=False;User ID='cshrdb1';Initial Catalog='m1';Data Source='127.0.0.1'--数据库连接出错,请检查连接字串。

 

其中:
----- ADO连接SQL Server的数据库连接字符串模板 ----------

身份验证模式为:"sql server和windows"
Provider=SQLOLEDB.1;Persist Security Info=True;User ID=用户名;Password=密码;Initial Catalog=数据库名;Data Source=SQL服务器名

身份验证模式为:"仅windows"
Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=数据库名;Data Source=SQL服务器名

 注:表名有中文,sqlserver中select的时候要加[]

上一篇:代码如下复制代码 BCP A..B,这里简单记录一下如何使用BCP工具进行数据的导入导出 下一篇:没有了

更多阅读

mssql数据库连接程序

数据 2020-05-06
mssql数据库连接程序 原文地址: %@ LANGUAGE = VBScript CodePage = 936%!--#include file=safe.asp --%OnError Res...
查看全文

代码如下复制代码 BCP A..B,这里简单记录

数据 2020-05-05
本文章来介绍一下关于导入导出,有需要学习mssqlserver数据库内容的导入与导出的可以参考一下...
查看全文

BACKUP LOG 数据库名 WITH NO,请把数据库的故

数据 2020-05-05
Server Error in '/'Application./prepre--------------------------------------------------------------------------------/pr...
查看全文

友情链接: 网站地图

Copyright © 2015-2019 http://www.koi-bumi.com. 韦德体育有限公司 版权所有