vb高手帮帮忙啊！

来源：百度知道 编辑：UC知道 时间：2024/05/10 10:47:36
设计一个简单的用户界面，包括数据源数据，然后进行坐标的转换，最后将数据存入数据库，并通过DataGrid显示。坐标转换的参数可以由用户自己自行设定。
vb与数据库之间需用相对路径链接。
题目就是这样了，请各位高手多多指教！

Private Sub LoadDB()
' 加在 booksale.mdb。如果文件不在指定的目录中
' 提供标准对话框，让最终用户来查找此文件。

gDBName = "booksale.mdb"
On Error GoTo LoadDBError
Set gCN = New ADODB.Connection ' 全局连接对象。

' 为连接对象设置连接字符串。
gCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
Left(App.Path, Len(App.Path) - Len("client")) & gDBName
gCN.Open ' 打开连接。

Exit Sub
LoadDBError:
Select Case Err.Number
Case -2147467259
' 不能找到文件, 使用标准对话框来查找它。
gCN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & _
GetBooksale
Resume
Case Else ' 其他未知的错误
MsgBox Err.Number & ": " & Err.Description
End Select
End Sub