Visual Basic

alexvw wrote:

Then, used regasm

I are Troll

com.Parameters.Add(New SqlParameter("@JoinDate", SqlDbType.DateTime))
If (dtpJoinDate.Checked) Then
	com.Parameters("@JoinDate").Value = Convert.ToDateTime(dtpJoinDate.Value)
Else
	com.Parameters("@JoinDate").Value = DBNull.Value
End If

If IsDBNull(drd("JoinDate")) Then
	'statements.......
        '....................
Else
	'statements.......
        '....................
End If

Dim MyParam As ADODB.Parameter

If ... Then
   Set MyParam = MyCom.CreateParameter("JoinDate", adDate, adParamInput, dtpMyCalendar.value)
Else
   Set MyParam = MyCom.CreateParameter("JoinDate", adDate, adParamInput, Noting)
End If

MyCom.Parameters.Append MyPara
Set MyRecordSet = MyCom.Execute

If IsNull(MyRecordSet(k).Value) Then

I are Troll

Private con As ADODB.Connection

Private Sub cmdOk_Click()
    Dim com As ADODB.Command
    Dim lngRetVal As Long
    
    On Error GoTo ErrorHandler
        'If Not Validate Then Exit Sub
        If strItemID = Empty Then
            strSql = "Insert Into tblItemList (ItemID,Item,CategoryID,Quantity,Rate,Half,HalfQuantity,HalfRate,ExpiryDate) Values ('" & _
            ReplaceQuote(txtItemID.Text) & "','" & ReplaceQuote(txtItem.Text) & "'," & SetDataCombo(cboCategory) & ",'" & _
            ReplaceQuote(txtQuantity.Text) & "'," & Val(txtRate.Text) & "," & IIf(chkHalfAvailable.Value, 1, 0) & ",'" & _
            ReplaceQuote(txtHalfQuantity.Text) & "'," & Val(txtHalfRate.Text) & ",?)"
        Else
            strSql = "Update tblItemList Set ItemID='" & ReplaceQuote(txtItemID.Text) & "',Item='" & ReplaceQuote(txtItem.Text) & "'," & _
            "CategoryID=" & SetDataCombo(cboCategory) & ",Quantity='" & ReplaceQuote(txtQuantity.Text) & "',Rate=" & _
            Val(txtRate.Text) & ",Half=" & IIf(chkHalfAvailable.Value, 1, 0) & ",HalfQuantity='" & ReplaceQuote(txtHalfQuantity.Text) & "'," & _
            "HalfRate=" & Val(txtHalfRate.Text) & ",ExpiryDate=?" & " Where ItemID='" & strItemID & "'"
        End If
        
        Set com = CreateCommand(strSql)
        com.Parameters.Append com.CreateParameter("ExpiryDate", adDate, adParamInput)
        If Not IsNull(dtpExpiry.Value) Then
            com("ExpiryDate") = CDate(dtpExpiry.Value)
        Else
            'Using Nothing instead of Null in the following line generates an error- ‘Application uses a value of the wrong type for the current operation’.
            com("ExpiryDate") = Null
        End If
        
        com.Execute lngRetVal, adCmdText, adExecuteNoRecords
        If lngRetVal = 1 Then
            Msgbox "Record saved."
            Unload Me
        End If
        CloseConnection

        strSql = Empty
    Exit Sub

ErrorHandler:
    CloseConnection
    strSql = Empty
    MsgBox "The following error has occurred:" & vbCrLf & Err.Description, vbCritical, "Error"
End Sub

Private Sub OpenConnection()
    If con Is Nothing Then
        Set con = New ADODB.Connection
        con.Open "Provider=SQLOLEDB.1;Data Source=MyServer;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=TestDB"
    End If
End Sub

Private Sub CloseConnection()
    If Not con Is Nothing And con.State = adStateOpen Then
        con.Close
        Set con = Nothing
    End If
End Sub

Private Function CreateCommand(strQuery As String) As ADODB.Command
    Dim com As New ADODB.Command
    
    OpenConnection
    com.ActiveConnection = con
    com.CommandText = strQuery
    Set CreateCommand = com
End Function