MS SQL2000 的问题

Question

可以阿!'---- CursorTypeEnum Values ----
  Const adOpenForwardOnly = 0
  Const adOpenKeyset = 1
  Const adOpenDynamic = 2
  Const adOpenStatic = 3
'---- LockTypeEnum Values ----
  Const adLockReadOnly = 1
  Const adLockPessimistic = 2
  Const adLockOptimistic = 3
  Const adLockBatchOptimistic = 4
'--连接SQL Server2000数据库--
Function OpenSQLServer(DestConn,StrServer,StrDatabase,StrUID,StrPassword)
'----------------------------------------------
'功能:打开Microsoft SQL Server 2000数据库
'参数:
'     DestConn    ADODB.Connection
'     StrServer   数据库服务器名称或IP Address
'     StrDatabase 数据库名称
'     StrUID      用户名
'     StrPassword 密码
'返回值:
'     0           打开数据库成功
'     1           打开数据库失败
'----------------------------------------------
On Error Resume Next
Dim rConn,StrConnect
  '--SQLServer数据库--
    Set rConn = Server.CreateObject("ADODB.Connection")
    StrConnect = "Provider=SQLOLEDB.1;Persist Security Info=False"
    StrConnect = StrConnect & ";Data Source=" & StrServer    'StrServer服务器名称  可以是IP地址
    StrConnect = StrConnect & ";Initial Catalog=" & StrDatabase  'StrDatabase数据库名称
    StrConnect = StrConnect & ";User ID=" & StrUID    'StrUserID用户名称
    StrConnect = StrConnect & ";Password=" & StrPassword  'StrPassword密码
    rConn.Open strconnect
Set DestConn=rConn
If DestConn.State=1 Then
    '--打开数据库,成功--
    OpenHutongSQLServer=0
      else
    '--打开数据库,失败--
    OpenHutongSQLServer=1
    End If
End Function

Answer 1

asp.net:Public Function InsertLargeTeam(ByVal ACode As String, ByVal AName As String) As String
            Const SqlStat As String = "Insert into largeteam(ltno, ltname) values(@no, @name)"
            Dim sError As String            Dim cntLt As New SqlNonnection("data source=192.168.0.250,1433;user id=sa;password=;database=violation")
            Dim cmdLt As New SqlCommand(SqlStat, cntLt)
            Me.AddParameter(cmdLt, "@no", ACode)
            Me.AddParameter(cmdLt, "@name", AName)
            cntLt.Open()
            Try
                cmdLt.ExecuteNonQuery()
                sError = ""
            Catch e As Exception
                sError = e.Message
            Finally
                cntLt.Close()
            End Try
            Return sError
        End Function

Answer 2

asp ADO:change localhost to your sql server machine name:
<%
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=19791010;"
set conn = Server.CreateObject("ADODB.Nonnection")
conn.Open sConn
set rs = conn.Execute("select * from [l1000]")
do until rs.EOF
  for i=0 to rs.fields.count - 1
    Response.Write rs.fields(i).name & "=" & rs.fields(i).value & "<BR>"
  next
  rs.moveNext
loop
rs.close
conn.close
set conn=nothing
%>see more connection strings at
http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN

Answer 3

<% 
  dim a,b,c
 set a=server.createobject("adodb.connection")
 a.open"driver={ sql server};server=gg;uid=ss;pwd=12331233;database=student"
 b="select * from xsjk"
 set c=server.createobject("adodb.recordset") 
 c.open b,a
 response.write c("user")&"<br>"%>