vb编程和sql语句问题

来源：百度知道编辑：UC知道时间：2024/06/16 00:27:05

Private Sub Form_Load()
Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc2.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db1.mdb;Persist Security Info=False"
Adodc1.RecordSource = "SELECT sex, COUNT(*) AS qty FROM tbS_employ GROUP BY sex"
Adodc1.Refresh
Adodc2.RecordSource = "SELECT COUNT(*) AS qty FROM tbS_employ "
Adodc2.Refresh
MSChart1.ColumnCount = Adodc1.Recordset.RecordCount
If Adodc1.Recordset.RecordCount > 0 Then '当记录大于零时
For i = 1 To Adodc1.Recordset.RecordCount
MSChart1.Column = i
MSChart1.Row = 1
MSChart1.ColumnLabel = Adodc1.Recordset.Fields(0).Value & "同志占公司总人数：" & Format(Adodc1.Recordset.Fields(1) / Adodc2.Recordset.Fields(0).Value, "0.00%")

Adodc1与Adodc2是ADO控件,用来存储SQL语句的执行结果,Adodc1与Adodc2存放内容不同,故用两个,
Adodc1.RecordSource = "SELECT sex, COUNT(*) AS qty FROM tbS_employ GROUP BY sex"中AS qty是将查询结果的列标题改为 qty

VB SQL 语句问题 VB中用ADO编程 SQL语句 VB+SQL的语句问题 VB中SQL语句问题急救～VB SQL 编程问题？ VS2005 用VB编程关于查询SQL语句 vb 中 SQL的select 语句问题 vb查询SQL语句的问题 VB SQL 查询语句的问题 vb 的sql语句查询问题