vb怎样连接sql server2000?怎样执行命令?

Question

Public Function exesql(ByVal sql As String) As ADODB.Recordset
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim exestr() As String
exestr = Split(sql)
Set cn = New ADODB.Connection
ConnectString="FileDSN=数据名;UID=sa;PWD="
If InStr("INSERT,DELETE,UPDATE", UCase$(exestr(0))) Then
cn.Execute sql
Else
Set rs = New ADODB.Recordset
rs.Open Trim$(sql), cn, adOpenDynamic, adLockOptimistic
Set exesql = rs
End If
End Function

Answer 1

看你用什么方法，如ADODC控件，也可用ADO库，
连接方式也可有ODBC，OLEDB等，
在odbc 连建立连接（有SQLSERVER2000的驱动的情况下）
在调用该DSN

Answer 2

刚做完一个连接sql server 的程序！是有关于登录问题的！我也用sql server 建立了一个user_info表 字段user_id和user_pwd有记录值user_id :1          user_pwd:1
Option ExplicitPrivate Sub Command1_Click()
   On Error Resume Next   
   cmd.CommandText = "Select * from user_info where user_id= '" + Replace(Text1.Text,"'","''") + "' and user_pwd = '" + Replace(Text2.Text,"'","''") + "'"
   Set rs = cmd.Execute   
   If Err.Number Then
      MsgBox Err.Description, 16 + vbOKOnly, Err.Number
      Exit Sub
   End If   
   If rs.RecordCount <> 1 Then
      MsgBox "用户名不正确或密码不对，请重新输入！", 16 + vbOKOnly, "错误"
      Exit Sub
   End If
   End Sub
模块Public db As New ADODB.Connection
Public rs As New ADODB.Recordset
Public cmd As New ADODB.CommandPublic i As Long
Public MsgValue As VbMsgBoxResult在此之间先”引用“ Microsof Active Data 2.5 library记不请了！在工程/引用中先选中它！可以实现登录功能如果不明白找我！42409201（注明CSDN)

Answer 3

你用ADODC连接SQL server 2000,
以下为代码：
dim cnn as new adodb.connection
dim rst as new adodb.recordset
dim cmm as new adodb.command
dim strcnn as string
dim strsql as string
strcnn="Provider=SQLOLEDB;Server=wsh-lx;" & _
"Database=数据库名;Password=密码号;"
cnn.open 
cnn.excute SQL语句

Answer 4

dim cn as adodb.connection
dim cm as adodb.command
set cn = new adodb.connection
cn.connectionstring="....."
cn.open
or 
cn.execute
or
cm.activeconnection=cn
cm.execute