В 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д