<%
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