🚀 go-pugleaf

�� �� dqkit �Ĵ������ᵽ: ��
: ��λ��������֪����VB��ΰ���ݿ�����һ���������ijһ�е����ͳ�Ƴ���������Select count(*)=num from....��ȡ����ֻ����DataGrid��ʾ��������֪����ΰ�num��ֵ�ŵ�һ��textBox�����أ�лл��
: ������datagridʱ��Դ�룺
: Private Sub Command1_Click()
:      Data1.RecordSource = "SELECT count(*),sum(*) FROM answered WHERE 
:      person=" & "'" & Text1.Text & "'"
:      Data1.Refresh
: End Sub
: ��������һ���ı���������Ҫ�������ġ�

re:��֪������ı��������⣬�����ҵ�������������⣬���Ǻ���������˼��
���Dz�������
Private Sub Command1_Click()
     Dim strsql As String
     Dim con As New ADODB.Connection '������ݿ���
     Dim rs As ADODB.Recordset    '������ݼ�
         '������ݿ�,���������ݿ��ļ����ļ����ֱ��������ȻҪд����ַ�
         '������Ϊ�˷�������ODBC DSN���Դ
     con.Open "DNS=mydatabase"
     strsql = "select count(userid),sum(mark) from answered where person='" & Trim(text1.Text) & "'"
     Set rs = con.Execute(strsql)  'ִ��SQL��������ݼ�
     If Not rs.EOF Then
        txtCount.Text = rs(0)    '�ѷ���ֵ��ʾ��TEXTBOX��
        txtSum.Text = rs(1)
     End If
     rs.Close
     conn.Close
End Sub


--
pppppp ffffff
nnnnnn oooooo
aaaaaa cccccc
kkkkkkkkkkkkk

�� ��Դ ����ɾ�bbsվ http://bbs.scau.edu.cn [FROM: 58.62.223.*]