В vb5 создать запускающий файл (скомпилировать)

Узнай цену своей работы

Формулировка задачи:

Как в vb5 создать запускающий файл (скомпилировать), чтобы все работало без установленной программы vb5 ? Имеется БД, к которой обращается программа.

Решение задачи: «В vb5 создать запускающий файл (скомпилировать)»

textual
Листинг программы
Private Sub Form_Activate()
  Label3 = Date
  dtPrv.Recordset.FindFirst "Format(Da_te, ""ddmm"")= " & Format(Date, "ddmm")
  Label2 = dtPrv.Recordset!Te_xt
  Label7 = dtPrv.Recordset!Phone
 Dim a As String
 Dim b As String
 Dim c As String
 Dim d As String
 Dim e As String
 Dim f As String
 Dim n
n = Date + 10000
With Me.dtPrv.Recordset
Do Until .EOF
  If !Da_te > Date Then
    If n > !Da_te Then
      n = !Da_te
    End If
  End If
  .MoveNext
Loop
End With
If Label2 = "Г*ГҐГІ Г*ГЁ Гі êîãî" Then
   Label1 = "ÑåãîäГ*Гї Г„Г*Гї ÐîæäåГ*ГЁГї"
End If
b = Format(CDate(n), "dd mmmm")
d = CStr(CDate(b) - Date)
c = "îñòГ*ëîñü"
f = "Ñëåäóþùèé ÄåГ*Гј ÐîæäåГ*ГЁГї"
Select Case d
 Case 1, 21, 31
  e = "äåГ*Гј"
  c = "îñòГ*ëñÿ"
 Case 2, 3, 4, 22, 23, 24
  e = "Г¤Г*Гї"
 Case 5, 6, 7, 8, 9, 10, 11, 12, 13, 14, 15, 16, 17, 18, 19, 20, 25, 26, 27, 28, 29, 30
  e = "Г¤Г*ГҐГ©"
  c = "îñòГ*ëîñü"
End Select
dtPrv.Recordset.FindFirst "format(Da_te,""ddmm"")=" & Format(b, "ddmm")
a = dtPrv.Recordset!Te_xt
 
Label13 = f & "  " & a & "  " & b & "  " & c & "  " & d & "  " & e
End Sub
 
Private Sub Label5_Click()
End
End Sub

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

15   голосов , оценка 4.267 из 5
Похожие ответы