急寻vb里用ado访问sql server的例子

Question

////Ado
Dim StrCon As String
StrCon = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;" _
     & "Initial Catalog=你的数据库名称;Data Source=" & 你的IP地址 & ";" _
     & "Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;" _
     & "Use Encryption for Data=False;Tag with column collation when possible=False"
            
dim AcSys  as new adodb.connection 
   With AcSys
      If .State = adStateOpen Then .Close
      .ConnectionString = StrCon
      .ConnectionTimeout = 30
      .Open
    End With
///////

Answer 1

Set cmd = Server.CreateObject("ADODB.Command")
Set cmd.ActiveConnection = cn
with cmd
     .CommandType = adCmdStoredProc
     .CommandText = "customer_addnew"     
     .parameters.append      .createParameter("@khmc",adVarChar,adParamInput,80)
      cmd("@khmc") = khmc
      .execute 
end withif cmd.parameters("@out")=0 then
...

Answer 2

用ADO连接Sql server数据库
   
strCN="Driver={SQL Server};Server=服务器名;DataBase=数据库;UID=用户;PWD=口令;"
 eg:SQL服务器名为 WEBSVR,数据库名为WebMis(在SQL Enterprise Manager中查看到),用户sa,口令123,则以上为: 
     
dim cn as adodb.connection 
      set cn =new adodb.connection 
     dim strCn as string 
     strCN="Driver={SQL Server};Server=WEBSVR;DataBase=WebMis;UID=sa;PWD=123;" 
     cn.open strCN Option Explicit
Private madoConnection    As New ADODB.Connection
Private mstrDBDSN         As String
Private mstrDBUser        As String
Private mstrDBNAME        As String
Private mstrDBPWD         As String
Private Sub Class_Initialize()
    
    Debug.Print "JSMDB > Create Instance - Database Connection for SQL-Server"
    
    mstrDBDSN = GetStringValue("HKEY_LOCAL_MACHINE\Software\JSM", "DSN")
    mstrDBUser = GetStringValue("HKEY_LOCAL_MACHINE\Software\JSM", "UID")
    mstrDBPWD = GetStringValue("HKEY_LOCAL_MACHINE\Software\JSM", "PWD")
    mstrDBNAME = "JSM"
    Call ConnectDB
    
End SubPrivate Sub Class_Terminate()
    
    Call CloseDB
    
End Sub'*******************************************************************************************************
'*  过程名  ：  ConnectDB
'*  功能    ：  生成连接
'*  作者    ：  陈阳
'*  作成日期：  2002/12/3
'*  更新日期：
'*  备注    ：
'*******************************************************************************************************Public Function ConnectDB() As Boolean    Dim strConn As String
    
    Debug.Print "JSMDB > Connect - SQL-Server Database"
    
    On Error GoTo Err_ConnectDB
    
    '连接字串生成
    strConn = "Provider=MSDASQL;" & _
                      "DSN=" & mstrDBDSN & ";" & _
                      "DATABASE=" & mstrDBNAME & ";" & _
                      "User Id=" & mstrDBUser & ";" & _
                      "Password=" & mstrDBPWD & ";"
                          '连接文字列设定
    madoConnection.ConnectionString = strConn
    
    '超时设定
    madoConnection.CommandTimeout = 0
    madoConnection.ConnectionTimeout = 0
    
    '连接
    madoConnection.Open
    
    ConnectDB = True
    Exit Function
    
Err_ConnectDB:
    'Error_Handler
    Call RaiseError(Err, "clsDatabase.ConnectDB")
    
End Function
'*******************************************************************************************************
'*  过程名  ：  CloseDB
'*  功能    ：  断开连接
'*  作者    ：  陈阳
'*  作成日期：  2002/12/3
'*  更新日期：
'*  备注    ：
'*******************************************************************************************************
Public Sub CloseDB()    Debug.Print "JSMDB > Close - SQL-Server Database"
    
    '切断连接
    On Error Resume Next
    
    madoConnection.Close
    
    Set madoConnection = Nothing
    
End Sub
'*******************************************************************************************************
'*  函数名  ：  ExecuteSQL
'*  功能    ：  执行SQL语句
'*  输入参数：  p_strSQL   --SQL语句
'*  返回值  ：  insert,delect语句分别返回插入和删除的纪录条数
'*  作者    ：  陈阳
'*  作成日期：  2002/12/3
'*  更新日期：
'*  备注    ：
'*******************************************************************************************************
Public Function ExecuteSQL(ByVal p_strSQL As String) As Long    Dim lngRet As Long
    
    On Error GoTo Err_Execute_SQL
    
    Debug.Print "Database Execute SQL > " & p_strSQL
    
    'SQL语句执行
    madoConnection.Execute p_strSQL, lngRet
    ExecuteSQL = lngRet
    Exit Function
    
Err_Execute_SQL:
    'ErrorHandler
    Call RaiseError(Err, "clsDatabase.Execute_SQL")
    
    ExecuteSQL = -1
    
End Function'*******************************************************************************************************
'*  函数名  ：  CreateRecordSet
'*  功能    ：  生成RecordSet
'*  输入参数：  p_strSQL   --SQL语句
'*  返回值  ：  RecordSet
'*  作者    ：  陈阳
'*  作成日期：  2002/12/3
'*  更新日期：
'*  备注    ：
'*******************************************************************************************************
Public Function CreateRecordSet(ByVal p_strSQL As String) As ADODB.Recordset    On Error GoTo Err_CreateRecordSet    Dim adoRSTemp As New ADODB.Recordset
     
    '获取RecordSet
    adoRSTemp.Open p_strSQL, madoConnection, adOpenStatic, adLockOptimistic
    
    '设置返回值
    Set CreateRecordSet = adoRSTemp
    
    Set adoRSTemp = Nothing
    
    Exit Function
    
Err_CreateRecordSet:
    'Error Handler
    Call RaiseError(Err, "clsDatabase.CreateRecordSet")
    
End Function