site Web aspx.net connexion à un serveur SQL

Question

Je tente d'ajouter des informations à un serveur de base de données, l'ID d'une personne, l'expérience à laquelle il participe et la date de l'expérience.

Ceci est mon code:

SQLConnection1.ConnectionString = MyConn 
Dim drNewRow As DataRow = DtsLabSystem1.tables("SubjectExperiment").NewRow 

drNewRow("SubjectID") = lblSubjectID.Text 
drNewRow("ExperimentID") = Request.Form("ExpSelectID") 


Dim strDate As String 
strDate = "#" & ddlDay.SelectedValue & "/" & ddlMonth.SelectedValue & "/" & txtYear.Text & "#" 


If IsDate(strDate) Then 
     If MyConn = "THE external SERVER CONNECTION STRING" Then 
      'we are connected to the linux data base 
      drNewRow("ExpDate") = CDate(ddlDay.SelectedValue & "/" & ddlMonth.SelectedValue & "/" & txtYear.Text) 

     Else 
      'we are connected to the local data base 
      drNewRow("ExpDate") = CDate(ddlDay.SelectedValue & "/" & ddlMonth.SelectedValue & "/" & txtYear.Text) 

     End If 

    Else 
     drNewRow("ExpDate") = CDate("01/01/9999") 

    End If 

    drNewRow("Comment") = txtComment.Text 

    DtsLabSystem1.tables("SubjectExperiment").Rows.Add(drNewRow) 
    SQLDataAdapter1.Update(DtsLabSystem1.tables("SubjectExperiment")) 

    Response.Redirect("SubjectDetails.aspx?ID=" & lblSubjectID.Text) 

End Function 

Mon problème est que lorsque la redirection vers SubjectDetails.aspx, j'essaie d'afficher les expériences de cette personne, et que je reçois l'erreur

GetExpDetails ERREUR: Opérateur ' = » est pas défini pour le type 'DBNull' et 'Nothing'

Lorsque vous essayez d'exécuter ce code:

If dr("ExpDate") = vbNullString Then 
    c.Controls.Add(New LiteralControl(" ")) 

Else 

    arrExpDate = Split(dr("ExpDate"), "/") 
    sExpDate = arrExpDate(0) & "/" & arrExpDate(1) & "/" & arrExpDate(2) 
    c.Controls.Add(New LiteralControl(sExpDate)) 
End If 

Des indices?

Im nouveau vers des sites Web de programmation, ce qui est un im code d'essayer de corriger .. Merci

Answer 1

Essayez:

If IsDbNull(dr("ExpDate")) Then 
    c.Controls.Add(New LiteralControl(" ")) 
Else  
    arrExpDate = Split(dr("ExpDate"), "/") 
    sExpDate = arrExpDate(0) & "/" & arrExpDate(1) & "/" & arrExpDate(2) 
    c.Controls.Add(New LiteralControl(sExpDate)) 
End If