请大家帮帮忙！真心诚意！！！我很着急！！关于SQL数据库查询操作的问题！多谢了，到晚上24：00在线。

Question

你可以用adodc控件，将txtfield(0)的datefield属性设为username,以此类推
将txtfield(0)的datesource属性设为adodc,其它的也是一样
查询按钮的代码
dim sql as string
sql="select * from email2 where username='" & txtfield(0) & "'"
 adodc.recordsource=sql
adodc.refresh然后你可以在文本框里修改了改完后按修改按钮adodc.recordset.update

Answer 1

朋友下面代码供你参考：Dim db As ADODB.Connection
Dim cmd As New ADODB.Command
Dim parm As New ADODB.Parameter
Dim parm2 As New ADODB.Parameter
Dim parm3 As New ADODB.Parameter
Dim parm4 As New ADODB.Parameter
Dim parm5 As New ADODB.ParameterSet db = New ADODB.Connection
db.Open "provider=sqloledb;data sourc=Athena;initial catalog=VB6DB", "sa", ""Set cmd = New ADODB.Command
Set cmd.ActiveConnection = dbcmd.CommandText = "Insert Into Customers Values (?,?,?,?,?,?,?)"
For Each el In nlSet parm = cmd.CreateParameter("parmVar", adInteger, adParamInput)
parm.Value = el.getAttribute("CustomerId")
Dn = parm.Value
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("parmVar", adVarChar, adParamInput, 50)
parm.Value = el.getAttribute("Context")
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("ParmVar", adInteger, adParamInput)
parm.Value = el.getAttribute("Handle")
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("parmVar", adInteger, adParamInput)
parm.Value = el.getAttribute("People")
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("parmVar", adInteger, adParamInput)
parm.Value = el.getAttribute("Type")
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("parmVar", adDate, adParamInput)
parm.Value = Date
cmd.Parameters.Append parmSet parm = cmd.CreateParameter("parmVar", adDate, adParamInput)
parm.Value = Time
cmd.Parameters.Append parm   db.Errors.Clear
   
   cmd.Execute

Answer 2

Option Explicit
Dim Conn As New ADODB.Connection  '声明ADO的一个连接对象
Dim Cmd As New ADODB.Command      '声明ADO的一个命令
Dim Rs As New ADODB.Recordset     '声明ADO的一个记录集
Dim Str As String                 '用它来储存连接数据库的字符串
Dim I As IntegerPrivate Sub Form_Load()
    Str = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=用户名;password=密码;Initial Catalog=数据库名;Data Source=服务器名"
    Conn.Open Str
    Cmd.ActiveConnection = Conn
    Cmd.CommandType = adCmdText
    Rs.CursorLocation = adUseClient
    Rs.CursorType = adOpenDynamic
    Rs.LockType = adLockOptimistic
End SubPrivate Sub Command1_Click()
    Cmd.CommandText = "select username,account,password,bptype,lasttime,stoptime,money from test1 where username= '" & TxtFields(0).Text & "'"
    Set Rs = Cmd.Execute
    
    For I = 0 To 6      '循环读出 RS 里的记录,付给各个文本框
        TxtFields(I).Text = Rs.Fields(I)
    Next I
End SubPrivate Sub Command2_Click()
    Cmd.CommandText = "update test1 set username= '" & TxtFields(0).Text & "'," _
                      & "account= '" & TxtFields(1).Text & "'," _
                      & "password='" & TxtFields(2).Text & "'," _
                      & "bptype='" & TxtFields(3).Text & "'," _
                      & "lasttime='" & TxtFields(4).Text & "'," _
                      & "stoptime='" & TxtFields(5).Text & "'," _
                      & "money='" & TxtFields(6).Text & "'" _
                     & " where username='" & TxtFields(0).Text & "'"
    Set Rs = Cmd.Execute
    Call Command1_Click   '调用 Command1_Click() 过程刷新文本框内容
End Sub

Answer 3

Option Explicit
Dim Conn As New ADODB.Connection  '声明ADO的一个连接对象
Dim Cmd As New ADODB.Command      '声明ADO的一个命令
Dim Rs As New ADODB.Recordset     '声明ADO的一个记录集
Dim Str As String                 '用它来储存连接数据库的字符串
Dim I As IntegerPrivate Sub Form_Load()
    
    Str = "Provider=SQLOLEDB.1;Persist Security Info=False;" _
          & "User ID=用户名;password=密码;" _
          & "Initial Catalog=数据库名;Data Source=服务器名"
    Conn.Open Str
    Cmd.ActiveConnection = Conn
    Cmd.CommandType = adCmdText
    Rs.CursorLocation = adUseClient
    Rs.CursorType = adOpenDynamic
    Rs.LockType = adLockOptimistic
End SubPrivate Sub Command1_Click()    '查询按扭
    Cmd.CommandText = "select   username,account,password,bptype,lasttime,stoptime,money " _
& "from test1 where username= '" & TxtFields(0).Text & "'"
    Set Rs = Cmd.Execute
    
    For I = 0 To 6      '循环读出 RS 里的记录,付给各个文本框
        TxtFields(I).Text = Rs.Fields(I)
    Next I
End SubPrivate Sub Command2_Click()    '更新按扭
    Cmd.CommandText = "update test1 set username= '" & TxtFields(0).Text & "'," _
                      & "account= '" & TxtFields(1).Text & "'," _
                      & "password='" & TxtFields(2).Text & "'," _
                      & "bptype='" & TxtFields(3).Text & "'," _
                      & "lasttime='" & TxtFields(4).Text & "'," _
                      & "stoptime='" & TxtFields(5).Text & "'," _
                      & "money='" & TxtFields(6).Text & "'" _
                     & " where username='" & TxtFields(0).Text & "'"
    Set Rs = Cmd.Execute
    Call Command1_Click              '调用 Command1_Click() 过程刷新文本框内容
End Sub