Дистрибутив
Создаю дистрибутив с помощью Package and Deployment Wizard. После создания запускаю setup своего проекта. Выдаёт следующую ошибку:
Invalid line in setup installation file!
У меня VB6sp1, база на access 2003. Может в этом проблема?
Подскажите, плз, еслт кто с таким сталкивался!
Invalid line in setup installation file!
У меня VB6sp1, база на access 2003. Может в этом проблема?
Подскажите, плз, еслт кто с таким сталкивался!
Цитата:
Originally posted by strizzz
Создаю дистрибутив с помощью Package and Deployment Wizard. После создания запускаю setup своего проекта. Выдаёт следующую ошибку:
Invalid line in setup installation file!
У меня VB6sp1, база на access 2003. Может в этом проблема?
Подскажите, плз, еслт кто с таким сталкивался!
Создаю дистрибутив с помощью Package and Deployment Wizard. После создания запускаю setup своего проекта. Выдаёт следующую ошибку:
Invalid line in setup installation file!
У меня VB6sp1, база на access 2003. Может в этом проблема?
Подскажите, плз, еслт кто с таким сталкивался!
Посмотри setup.lst. Может ты увидишь Invalid line и внесешь исправления. И еще, ставь SP5.
спасиб за совет. всё заработало.
но тут ещё одна проблемка возникла:
Private Sub Command3_Click()
Dim t As Integer
t = Text6.Text
If MsgBox("Delete this record?", vbYesNo, "Confirmation") = 6 Then
Data1.ReadOnly = False
Data1.Refresh
Data1.RecordSource = "SELECT * FROM vessels WHERE [id] = " & t
Data1.Refresh
Data1.Recordset.Delete
Data1.RecordSource = "SELECT * FROM vessels "
Data1.Refresh
Data1.ReadOnly = True
Data1.Refresh
End If
End Sub
Проблема в том, что снимать readonly он снимает(по умолчанию поставлено true), а назад ставить не хочет
но тут ещё одна проблемка возникла:
Private Sub Command3_Click()
Dim t As Integer
t = Text6.Text
If MsgBox("Delete this record?", vbYesNo, "Confirmation") = 6 Then
Data1.ReadOnly = False
Data1.Refresh
Data1.RecordSource = "SELECT * FROM vessels WHERE [id] = " & t
Data1.Refresh
Data1.Recordset.Delete
Data1.RecordSource = "SELECT * FROM vessels "
Data1.Refresh
Data1.ReadOnly = True
Data1.Refresh
End If
End Sub
Проблема в том, что снимать readonly он снимает(по умолчанию поставлено true), а назад ставить не хочет
Цитата:
Originally posted by strizzz
спасиб за совет. всё заработало.
но тут ещё одна проблемка возникла:
спасиб за совет. всё заработало.
но тут ещё одна проблемка возникла:
Sorry. Это совсем другая тема. Надо разбираться, но совсем нет времени.