Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
Info Coronavirus/Vaccinare vs Fake News

Identificare dioda zenner

Cont SPV pentru PFA?

Spalare instalatie termica
 afisare eroare centrala termica e...

Probleme cu un PDF in Adobe Reader

NHA,NBA

Scartait placute frana
 Contract imprumut PFA

Comoditatea se plateste(si in Ung...

Hayu Romania (serviciul de stream...

Scoatere bani pensie privata obli...
 izolatie planseu regim DIY

Colecționari de baterii.

Depanare telecomanda IR

Posibila frauda - mail de la adre...
 

MSG BOX CU REZULTAT DIN SQL SERVER

- - - - -
  • Please log in to reply
No replies to this topic

#1
adrianpavel81

adrianpavel81

    New Member

  • Grup: Members
  • Posts: 17
  • Înscris: 18.04.2008
Salutare,
cum de ceva vreme ma tot macina aceasta problema..m-am gandit sa va cer parerea si voua. Sunt incepator pe partea de VB iar pe SQL la nivel mediu...
Problema mea este urmatoarea:
vreau ca un eveniment in VB sa execute un script SQL al carui rezultat sa-l afiseze intr-un MSGBOX.Procedura SQL o am gata dar mai imi trebuie si partea de VB la care ma bat degeaba cu pumnii in cap ca tot nu imi iese  :huh:
Multumesc

Aici am functia care ar trebuii sa cuprinda ideea mea:  :D

Public Function CompleteTask(strTaskId As String, strProjName As String, strTaskName As String, iProjID As Integer) As Boolean
Dim ans As Variant: Dim strSubject As String: Dim strMsg As String: Dim strTo As String

    strSubject = strProjName & " [Notificare task incheiat]"
    strMsg = "Notificare: taskul " & "<font color=#993333><b>" & strTaskName & "</b></font> este incheiat."
    
    ans = MsgBox("Sigur doriti sa incheiati acest task ?" & vbCrLf & "Nota: Se va trimite automat un email " & _
        "catre toti recipientii din lista proiectului aferent.", vbYesNo + vbQuestion, "Confirmare")
    
    If ans = vbYes Then
    
        deMain.Commands("spEmpCompleteTask").Parameters(1) = Val(strTaskId)
        deMain.Commands("spEmpCompleteTask").Execute
        
        If deMain.Commands("spEmpCompleteTask").Parameters(0) = -1 Then
            CompleteTask = False
        Else
            'Send email to project mailing list
            Screen.MousePointer = 11
            strTo = MakeContactsList(Val(strTaskId), "TaskID", strTo)
            If SendMailCDO(USER.eMail, strTo, strSubject, strMsg, True, iProjID) = True Then
                MsgBox "E-mail trimis cu succes!", vbOKOnly + vbInformation, "Informatie"
            Else
                MsgBox "Eroare la trimitere email!", vbOKOnly + vbCritical, "Eroare"
            End If
            Screen.MousePointer = 1
            CompleteTask = True
        End If
    Else
        CompleteTask = False
    End If
End Function

Anunturi

Chirurgia spinală minim invazivă Chirurgia spinală minim invazivă

Chirurgia spinală minim invazivă oferă pacienților oportunitatea unui tratament eficient, permițându-le o recuperare ultra rapidă și nu în ultimul rând minimizând leziunile induse chirurgical.

Echipa noastră utilizează un spectru larg de tehnici minim invazive, din care enumerăm câteva: endoscopia cu variantele ei (transnazală, transtoracică, transmusculară, etc), microscopul operator, abordurile trans tubulare și nu în ultimul rând infiltrațiile la toate nivelurile coloanei vertebrale.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate