我使用VB默认的data控件
把它的databasename设置的E:\dd\madata.mdb
当我生成EXE文件后我想把这个路径转变成EXE文件所在的目录
怎么办呢

使用App.Path

怎么只有版主姐姐帮我呢?

Private Sub Form_Initialize()
addData.DatabaseName = App.Path & "\public.mdb"
addData.RecordSource = "connect" '我这样设置数据源与表后后面访问就出错了,郁闷
End Sub

Private Sub Form_Load()

With winsck
.LocalPort = 8080 '该Winsock控制将要使用的本地端口号，便于其它端与该Winsock通讯
.Bind 8080 '将该Winsock控制绑定到该本地端口
End With
End Sub

Private Sub Text2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
For i = 1 To 1
winsck.RemoteHost = addData.Recordset.Fields(1)
winsck.RemotePort = addData.Recordset.Fields(2)
winsck.SendData (Text2.Text)
addData.Recordset.MoveNext
Next i
addData.Recordset.MoveFirst
Text2.Text = ""
End If
End Sub

[此贴子已经被作者于2006-10-21 9:41:36编辑过]

提示说对象变量没设置
winsck.RemoteHost = addData.Recordset.Fields(1)