Access проблема

[West]

Может кто сможет помочь решить проблемку, на Access написана прога, автор её уехал в пиндосию. В чем суть, база данных намертво привязана к диску C:\Account . Что можно сделать и запускать ее из любого каталога?

[PhoeniXX]

Сообщение от West

Может кто сможет помочь решить проблемку, на Access написана прога, автор её уехал в пиндосию. В чем суть, база данных намертво привязана к диску C:\Account . Что можно сделать и запускать ее из любого каталога?

Смотреть VB код этой базы, чтобы найти упоминание C:\Account и изменить его на нужное, ну или подправить код, чтобы он мог работать с любого каталога

[West]

[quote=PhoeniXX;1117031]Смотреть VB код этой базы, чтобы найти упоминание C:\Account и изменить его на нужное, ну или подправить код, чтобы он мог работать с любого каталога[/QUOTE

Было б неплохо подправить код, и кто мог бы помочь и что это будет стоить?

[West]

Сообщение от PhoeniXX

Смотреть VB код этой базы, чтобы найти упоминание C:\Account и изменить его на нужное, ну или подправить код, чтобы он мог работать с любого каталога

Спасибо, пробовал править, но ничего не вышло, либо код закоментирован .исходники вот.



' Dim cnn As New ADODB.Connection
' Dim rst As New ADODB.Recordset
' Dim fld As ADODB.Field
'
' ' Open the connection
' cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" _
' & "Data Source=c:\account\account.mdb;"
'
' ' Open the forward-only,
' ' read-only recordset
' rst.Open _
' "SELECT data_v FROM J_uvs WHERE data_v < now()", _
' cnn, adOpenForwardOnly, adLockReadOnly
'
' ' Print the values for the fields in
' ' the first record in the debug window
' Do Until rst.EOF
' For Each fld In rst.Fields
' Debug.Print fld.Value & ";";
' Next
' Debug.Print
' rst.MoveNext
' Loop
'
' ' Close the recordset
' rst.Close

других ссылок на это я не нашел, я не программер, может кто поможет?