① 使用DAO连接数据库，要求立即窗口显示出所有不及格的同学的姓名
1、你没有说你用什么语言
2、我来介绍一种吧，java语言，桌面程序的
2-1、首先你要写个swing界面
2-2、之后你需要会使用数据库
2-2-1、avg函数是求平均分的，你需要查询出学生成绩小余平均分的
2-3、把查询到的数据，装填在bean里，之后封装到list集合
2-4、显示在swing窗口 用jtable组件 集合方式放进去
3、lz如果是做网页方面，那么就不要swing，而是需要html了
4、不知道lz是否懂ssh这个是一个框架
5、预祝lz开开心心学习
② 如何打开数据库窗口
只要能确定其中的“能使用Access特殊键”选项被选中，就可以打开数据库窗口，其操作是按一下F11即可。至于你的后一个问题，做一按钮实现查看功能，我还没有那个能力做到。
对此我也在关注高手们的回答。
希望我的回答对你有帮助，如有疑问可以留言或在线交流。
③ 为什么数据库的模块中的立即窗口书去代码总说找不到工程或库
VB编的登录系统代码,已连接数据库,但总是打开窗口失败... 编的登录系统代码,已连接数据库,但总是打开窗口失败... 据库选两种身份都可以登录应该就可以解决!~ 匿名 ?<span class="tm">7-02 15:09</span>...
④ access2010属性表打不开了旁边的拦不显示了，所有数据库文件都这样！
打开
access
2010然后找到“文件”-打开“选项”窗口，找到“快速访问工具栏”重置一下你看看！
⑤ 如何改变VB6.0立即窗口中显示的字体大小
工具->选项->编辑器格式->大小
修改编辑器中的字体大小,立即窗口中的字体大小就会跟着修改!
⑥ 如何更新Excel的数据库查询函数库
更新一下之前写的Excel的数据库类，将其改成函数的形式，调用更简单（省却了生成类实例的步骤）。现在这个代码在工作中用了一年多，已经比较健壮。若有问题，请留言指出或与我联系。
这些代码有如下优势：
•无需任何配置。在VBA中新建模块，并把代码复制转帖过去即可使用。
•有以下函数：执行数据库语句、查询数据库、结果复制到单元格（Excel中最常用）、将Excel表格上传到数据库。基本覆盖Excel中对数据库的常用操作。
•会在立即窗口显示数据库错误信息，方便查错。
•在数据库连接字符串字典中配好数据库连接信息后，数据库访问时可直接使用配好的链接字符串。
具体的函数用法已经写在下面代码注释里。简单描述一下：
•dqQueryToArray(sql, connection_string) 查询数据库，返回一个二维数组
•dbQueryOne(sql, connection_string) 查询数据库，返回单个变量。
•dbQueryToCell(sql, range, connection_string, withHeader) 查询数据库后，将结果显示在range开始的区域中；withHeader控制是否显示列名。
•dbExec(sql, necction_string) 执行数据库语句；无返回值
•dbInsertRange(table, range, connection_string, is_empty) 将本Excel文件的range区域里的数据插入到数据库的表table。其中is_empty控制在上传数据前是否清空table的原数据。
其它就看一下代码吧：
' EXCEL的ADO数据库操作函数库
' 这些代码应该放在Excel的VBA模块中，类模块的名字为database，并以以下形式引用：
'
' res = dbQueryToArry(sql, connection_string)
' ' 返回sql的查询结果，结果为一个二维数组
' res = dbQueryOne(sql, connection_string)
' ' 返回sql的查询结果，但只返回第一个数据(相当于数据库查询结果的左上角那个数据)
' dbQueryToCell sql, save_to_range, connection_string, withHeader
' ' 将sql的查询结果直接写入到以save_to_range开头的单元格区域中
' ' withHeader控制是否复制表头，默认为true（复制表头）
'
' 其中参数sql为数据库查询语句，connection_string为数据库连接字符串。
'
' 比如要连接SQL数据库，并已经设置ODBC，连接字符串为：
' "Provider=MSDASQL;DSN=odbc_name;UID=username;PWD=password;database=database_name;"
' 如果未设置ODBC，连接字符串为：
' "driver={SQL Server};server=service_name_or_ip;uid=username;pwd=password;database=database_name;"
' 其中最后面的database变量可省略。对于SQL Server，推荐使用后一种方法。
'
' 如果数据来源为Excel文件，connection_string参数可省略
'
' 其它功能：内置数据库的连接字符串、查询存储过程
'
' Author: [email protected], 2014-03-01 v4
' url: http://qiang.org/blog/it/excel-vba-database-functions.html
Private sqlDict As Object ' 缓存数据
Private cnn As Object, rst As Object, lastConn As String
Private Sub dbInitialize()
If Not sqlDict Is Nothing Then Exit Sub
Set sqlDict = CreateObject("scripting.Dictionary")
lastConn = ""
' 在这里可以缓存一些常用的数据库信息，这样在查询数据库时可以直接调用
' 比如dbQueryToArry(sql, "this")
With sqlDict
.Add "SQL服务器", _
"Provider=MSDASQL;DSN=odbc_name;UID=username;PWD=password;database=database_name;"
.Add "SQL服务器(无需配置ODBC)", _
"driver={SQL Server};server=ip;uid=username;pwd=password;database=database_name;"
.Add "this", "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & ThisWorkbook.FullName & _
";Extended Properties=Excel " & Application.Version & ";"
End With
End Sub
' 查询数据库，返回RecordSet对象
' sql: 数据库查询语句
' sqlConnectString: 数据库连接信息，或者直接指定数据库，比如"Wind"、"JYDB"等，
' 利用内设的数据库连接信息
Public Function dbQuery(sql As String, _
Optional ByVal sqlConnectString As String = "this") As Object ' ADODB.Recordset
dbConnectSQL sqlConnectString
On Error GoTo errorhander
rst.Open sql, cnn
Set dbQuery = rst
errorhander:
dbDisplayError sql
End Function
' 查询数据库，返回一个数组
' sql: 数据库查询语句
' sqlConnectString: 数据库连接信息，或者直接指定数据库，比如"Wind"、"JYDB"等，
' 利用内设的数据库连接信息
Public Function dbQueryToArray(sql As String, _
Optional ByVal sqlConnectString As String = "this")
dbConnectSQL sqlConnectString
On Error GoTo errorhander
rst.Open sql, cnn
dbQueryToArray = rst.GetRows(10000000)
errorhander:
DisplayError sql
End Function
' 查询数据库，返回单个数值
' sql: 数据库查询语句
' sqlConnectString: 数据库连接信息，或者直接指定数据库，比如"Wind"、"JYDB"等，
' 利用内设的数据库连接信息
Public Function dbQueryOne(sql As String, _
Optional ByVal sqlConnectString As String = "this")
dbConnectSQL sqlConnectString
On Error GoTo errorhander
rst.Open sql, cnn
dbQueryOne = rst.Fields.Item(0).value
errorhander:
dbDisplayError sql
End Function
' 查询数据库，返回单个数值
' sql: 数据库查询语句
' sqlConnectString: 数据库连接信息，或者直接指定数据库，比如"Wind"、"JYDB"等，
' 利用内设的数据库连接信息
Public Function dbQueryToCell(sql$, Optional rng As Excel.Range, _
Optional ByVal sqlConnectString$ = "this", _
Optional withHeader As Boolean = True)
On Error GoTo error_handler
dbConnectSQL sqlConnectString
rst.Open sql, cnn
Set rng = rng.Cells(1, 1)
If withHeader = True Then
Dim i As Long
For i = 0 To rst.Fields.Count - 1
rng.Offset(0, i).value = rst.Fields(i).Name
Next
rng.Offset(1, 0).CopyFromRecordset rst
Else
rng.CopyFromRecordset rst
End If
error_handler:
dbDisplayError sql
End Function
' 执行任意数据库语句，无返回结果。如需返回结果，请使用Query、QueryOne、QueryToCell等函数
' sql: 数据库查询语句
' sqlConnectString: 数据库连接信息，或者直接指定数据库，比如"Wind"、"JYDB"等，利用内设的数据库连接信息
Sub dbExec(ByVal sql As String, _
Optional ByVal sqlConnectString As String = "this")
dbConnectSQL sqlConnectString
On Error GoTo errorhander
cnn.Execute sql
errorhander:
dbDisplayError sql
End Sub
' 这个函数用来上传一个Excel区域到数据库，数据表必须事先建好，并且包括Excel区域的第一行
' Database.InsertRange(table, rng, sqlConnectString, isEmpty)
' table：Excel数据将上传到这个表内
' rng: 将被上传的Excel区域
' sqlConnectString: 数据库连接字符串
' isEmpty: 是否清空原有表格数据
Public Function dbInsertRange(table$, rng As Excel.Range, Optional ByVal sqlConnectString$ = "this", _
Optional isEmpty As Boolean = False)
dbConnectSQL sqlConnectString
On Error Resume Next
If isEmpty Then dbExec "delete from " & table, sqlConnectString$
Dim r As Long, sqlHead$, i As Long
' 首选根据isEmpty选项，删除原表内所有数据
For i = 1 To rng.Columns.Count
sqlHead = sqlHead & ",[" & rng.Cells(1, i) & "]"
Next i
' 其次，依次拆入每行
' 目前每一行都需运行一个SQL语句，效率较低，如果数据量较大，可能会引起Excel死机
sqlHead = "insert into " & table & " (" & mid(sqlHead, 2, 10000000) & ") values "
For r = 2 To rng.rows.Count
Dim sql$
sql = ""
For i = 1 To rng.Columns.Count
Dim v
v = rng.Cells(r, i).value()
If IsError(v) Then v = ""
If IsDate(v) Then
sql = sql & ",'" & Format(v, "yyyy-mm-dd") & "'"
ElseIf v <> "" And IsNumeric(v) Then
sql = sql & "," & v
Else
sql = sql & ",'" & v & "'"
End If
Next i
dbExec sqlHead & " (" & mid(sql, 2, 1000000) & ")", sqlConnectString$
Next r
End Function
' 查询存储过程，返回的是ADODB.RecordSet对象
Public Function dbQueryStoredProc(procName$, para, _
Optional ByVal sqlConnectString As String = "this", _
Optional returnPara As Boolean = True) As Object 'ADODB.Recordset
On Error GoTo errorhander
dbConnectSQL sqlConnectString
With com
.ActiveConnection = cnn
.CommandType = adCmdStoredProc
.CommandText = procName
' 获取存储过程的参数定义
.Parameters.Refresh
' 如果存在输出参数，则删除它，默认第一个为输出参数
On Error Resume Next
If returnPara Then .Parameters.Delete 0
' 设置输入参数的值
If IsArray(para) Then
Dim i
For i = 0 To UBound(para)
.Parameters.Item(i).value = para(i)
Next i
End If
' 改变输入参数大小
Dim tmpp
For Each tmpp In .Parameters
tmpp.Size = 255
Next tmpp
' 获取参数返回值
Set dbQueryStoredProc = .Execute()
End With
errorhander:
DisplayError sql
End Function
Private Sub dbClose()
' 当类被注销时，断开数据库连接
On Error Resume Next
If cnn.State <> 0 Then cnn.Close
End Sub
' 连接数据库
' 此处首先检查cnn是否已经连接到想要连接的数据库，如果已经连接，将不产生任何操作
' 本Database对象在对象存续过程中，不会主动断开；
' 只有在对象注销之时，才断开数据库，如需断开数据库连接，请set db = nothing
Private Function dbConnectSQL(ByVal sqlConnectString$) As String
On Error Resume Next
Call dbInitialize
If sqlDict.Exists(LCase(sqlConnectString)) Then
sqlConnectString = sqlDict.Item(LCase(sqlConnectString))
End If
If rst Is Nothing Then Set rst = CreateObject("ADODB.Recordset")
If cnn Is Nothing Then Set cnn = CreateObject("ADODB.Connection")
If cnn.State <> 1 Or lastCnn <> sqlConnectString Then
cnn.Close
Set cnn = Nothing
Set cnn = CreateObject("ADODB.Connection")
cnn.Open sqlConnectString
lastConn = sqlConnectString
End If
dbConnectSQL = sqlConnectString
End Function
' 显示查询数据库过程中出现的错误信息，信息被显示在立即窗口。
Private Sub dbDisplayError(sql$)
Dim e
If cnn.Errors.Count > 0 Then
Debug.Print cnn.Errors.Count & " errors found when exec """ & sql & """"
For Each e In cnn.Errors
Debug.Print "Error info: " & e.description & " Source: " & e.Source
Next e
End If
End Sub
⑦ 数据库立即窗口只能竖向排列，不能横向！= =
VBA print 函数，如果后面不带操作符表示换行，如果带了';'表示连接
你的语句改成：
Public Sub 随机数()
Dim i, j As Integer
Debug.Print " "
For i = 1 To 9
Debug.Print Format(i, "0#"); " ";
Next
End Sub
就可以了
⑧ office10怎么打开金蝶access数据库
1.在 Access 2010里, 打开任何一个数据库或新建一个空数据库。
2.按 CTRL+G组合键， 在自动弹出的立即窗口（靠下），在此窗口中录入下面一行代码：
DoCmd.RunCommand acCmdWorkgroupAdministrator然后回车，会自动弹出工作组管理加入窗口。
3.工作组管理员 对话框中, 单击 【加入】 , 并单击 【浏览】，选择工作组文件，依次确定并退出。
我们是温州金蝶代理，祝工作愉快！
⑨ 在VB中用到聚合函数查询数据库内容时老是会出现问题，那位大侠帮忙解决一下啊..
sql可以用别名，这样好看一点：
select a.职工名称 as 分点,b.水的名称,sum(b.销售数量) as 销售数量
from 职工表 a ,桶装水销售表 b
where a.职工编号 = b.销售人员编号 and year(b.销售日期)='" & Year(DTPicker5.value) & "'
group by a.职工名称,b.水的名称
你程序没有错误提示吗？
这句sql语句看不出问题,最好用debug.print输出这个sql语句到立即窗口，看看实际条件对不对，然后复制到查询分析器中去试一下...