aspx.net Website Verbindung zu einem SQL-Server

Question

Ich versuche, einige Informationen zu einem Datenbankserver, eine Person ID, das Experiment, an dem er beteiligt ist, und das Datum des Experiments hinzuzufügen.

Dies ist mein 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 

Mein Problem ist, dass, wenn zu SubjectDetails.aspx Umleitung, versuche ich diese Person Experimente anzuzeigen, und als ich den Fehler

GetExpDetails ERROR: Operator ' = DBNull 'und 'Nothing'‘ist nicht für Typ definiert'

Beim Versuch, diesen Code auszuführen:

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 

Irgendwelche Hinweise?

Im neu in der Programmierung Web-Sites, und dies ist ein Code im zu beheben versuchen .. Danke

Answer 1

Versuchen:

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