<%
dim conn,connstr
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("*.mdb")
<!--上一行最後寫上你的資料庫路徑-->
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open connstr
if Err then
err.Clear
Set Conn = Nothing
Response.Write "資料庫連接出錯,請檢查Conn.asp中的資料庫指向。"
Response.End
end if
%>
將上面的內容保存為conn.asp
Ⅱ 如何把ACCESS資料庫表指針直接指向最後一行
不太理解你的意思。只有資料庫?用語言嗎?如果只有資料庫,那你就打開你要的表,用滑鼠點擊最後一行好了。如果用語言工具,就把數據集的指針移到最後一行。如果用語言,說說什麼語言!
你做了一個界面總要有控制項連接資料庫吧,把連接那個表的數據集設置指向最後一條。
Ⅲ vb 如何定位access資料庫的最後一行
用DAO 的方式完成:
Dim DB As DAO.Database
Dim Rect As DAO.Recordset
Dim newCode As String '新的檔案編號
Set DB = OpenDatabase("E:\DB1.mdb", 0, 0)
Set Rect = DB.OpenRecordset
("SELECT 檔案編號 FROM 會員檔案", dbOpenSnapshot)
If Rect.BOF And Rect.EOF Then
newCode="1"
Else
Rect.MoveLast
newCode=Val(Rect(0))+1
End If
還可以直接獲得最大的「檔案編號」
Set Rect = DB.OpenRecordset
("SELECT Max(檔案編號) FROM 會員檔案", dbOpenSnapshot)
此時就不需要移動數據記錄了。直接計算新的「檔案編號」
newCode=Val(Rect(0))+1
Ⅳ vb讀取ACCESS資料庫的最後一行信息的方法
你排序,然後用倒序,並且只讀第一行就行了,比如我們都知道ID是從小到大的
所以就
select top 1 * from [User] order by [Id] desc