① 使用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語句到立即窗口，看看實際條件對不對，然後復制到查詢分析器中去試一下...