1 Replies - 425 Views - Last Post: 08 October 2017 - 08:33 AM Rate Topic: -----

#1 kataria17  Icon User is offline

  • New D.I.C Head

Reputation: 0
  • View blog
  • Posts: 2
  • Joined: 09-January 10

data type mismatch criteria expression in VB 2010

Posted 08 October 2017 - 04:58 AM

Imports System.Data.OleDb
Imports System.String
Imports System.IO
Imports System.Security.Cryptography
Imports System.Text

Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: This line of code loads data into the 'TestDataSet.DATA' table. You can move, or remove it, as needed.
        Me.DATATableAdapter.Fill(Me.TestDataSet.DATA)
        'CurrentRow = 0
        ' ============== NEW TEXT LINES ADDED ========
        '=========================================
        Con.Open()
        Dad = New OleDbDataAdapter("SELECT * FROM DATA ORDER BY ID", Con)
        Dad.Fill(Dst, "test")
        ' =============FOR LAST LOW ADD THIS==============
        CurrentRow = Dst.Tables("test").Rows.Count - 1
        ShowData(CurrentRow)
        '================== FOR FIRST ROW ADD THIS AND REMOVE ABOVE=============
        'ShowData(CurrentRow)
        '=========================================
        Con.Close()
    End Sub
    Private Sub DATABindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DATABindingNavigatorSaveItem.Click
        Me.Validate()
        Me.DATABindingSource.EndEdit()
        Me.TableAdapterManager.UpdateAll(Me.TestDataSet)
    End Sub
    ' To display data on form
    Private Sub ShowData(ByVal CurrentRow)
        Try
            ' "======== CHANGES MADE , ADDED {{ + 1}}=========
            ' IDText.Text = Dst.Tables("test").Rows(CurrentRow)("IDText") + 1
            '==============================================================
            IdText.Text = Dst.Tables("test").Rows(CurrentRow)("IDText")
            '"======== CHANGES MADE , ADDED {{ CLOSE -FIRSTNAME,LAST NAME. WEIGHT.RATE 1}}=========
            IdText.Text = Dst.Tables("test").Rows(CurrentRow)("ITEMCODE")
            ItemNameText.Text = Dst.Tables("test").Rows(CurrentRow)("ITEMNAME")
            WeightText.Text = Dst.Tables("test").Rows(CurrentRow)("WEIGHT")
            RateText = Dst.Tables("test").Rows(CurrentRow)("RATE")
            LabourText = Dst.Tables("test").Rows(CurrentRow)("LABOUR")
            WeightText = Dst.Tables("test").Rows(CurrentRow)("WEIGHT")
            GrossWeightText = Dst.Tables("test").Rows(CurrentRow)("GROSSWEIGHT")
            PriceText = Dst.Tables("test").Rows(CurrentRow)("PRICE")
            CgstText = Dst.Tables("test").Rows(CurrentRow)("CGST")
            SgstText = Dst.Tables("test").Rows(CurrentRow)("SGST")
            IgstText = Dst.Tables("test").Rows(CurrentRow)("IGST")
            GrandTotalText = Dst.Tables("test").Rows(CurrentRow)("GRANDTOTAL")
        Catch ex As Exception
        End Try
    End Sub
    ' To exit from application
    Private Sub ExitAll_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitAll.Click
        Con.Close()
        Me.Close()
        End
    End Sub
    ' To Navigate to First Record
    Private Sub First_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CurrentRow = 0
        ShowData(CurrentRow)
    End Sub
    ' To Navigate to Last Record
    Private Sub Previous_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If CurrentRow <> 0 Then
            CurrentRow -= 1
            ShowData(CurrentRow)
        Else
            MsgBox("First Record is Reached!!!")
        End If
    End Sub
    ' To Navigate to Next Record
    Private Sub Forward_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        If CurrentRow = Dst.Tables("test").Rows.Count - 1 Then
            MsgBox("Last Record is Reached!!!")
        Else
            CurrentRow += 1
            ShowData(CurrentRow)
        End If
    End Sub
    ' To Navigate to Last Record
    Private Sub Last_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        CurrentRow = Dst.Tables("test").Rows.Count - 1
        ShowData(CurrentRow)
    End Sub
    'To select the data in IDText field
    Private Sub IDText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs)
        IdText.SelectAll()
    End Sub
    ' To clear all fields : IDText, ITEMCODE, ITEMNAME,  RATE, LABOUR,WEIGHT,GROSSWEIGHT,PRICE,CGST,SGST/UTGST,IGST,GRANDTOTAL
    Private Sub Clear()
        IdText.Text = ""
        ItemCodeText.Text = ""
        ItemNameText.Text = ""
        RateText.Text = ""
        LabourText.Text = ""
        WeightText.Text = ""
        GrossWeightText.Text = ""
        PriceText.Text = ""
        CgstText.Text = ""
        SgstText.Text = ""
        IgstText.Text = ""
        GrandTotalText.Text = ""
    End Sub
    ' To search a record in database
    Private Sub SearchAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchAll.Click
        Dim SearchIDText As Integer
        Dim i, j As Integer
        If CheckIDText() = False Then
            MsgBox("Integer Value Required!!!")
            Exit Sub
        End If
        Try
            SearchIDText = IdText.Text
            j = Dst.Tables("test").Rows.Count - 1
            i = 0
            While i <> j + 1
                If SearchIDText = Dst.Tables("test").Rows(i)("IDText") Then
                    ShowData(i)
                    Exit While
                ElseIf i = j Then
                    Clear()
                    MsgBox("Record Not Found!!!")
                    ShowData(CurrentRow)
                    Exit While
                End If
                i += 1
            End While
            CurrentRow = i
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
    ' To insert the record in database
    '  Private Sub SAVE_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    'Dim Str As String
    '   If CheckIDText() = False Then
    '      MsgBox("IDText : Integer Value Required !!!")
    '     Exit Sub
    'ElseIf IsIdTextExist() = True Then
    '   MsgBox("IDText : IDText is already exist. Please choose another one.....For help please consIDTexter the data by clicking on ""Show Data"" Button")
    '  Exit Sub
    'ElseIf CheckITEMCODE() = False Then
    'ElseIf CheckITEMCODE() = True Then
    '   MsgBox("ITEMCODE : Only Characters Allowed!!!")
    '  Exit Sub
    'ElseIf CheckITEMNAME() = False Then
    '   MsgBox("ITEMNAME : Only Characters Allowed!!!")
    '  Exit Sub
    'ElseIf CheckWEIGHT() = False Then
    '   MsgBox("WEIGHT : Only Characters Allowed!!!")
    '  Exit Sub
    'ElseIf CheckRATE() = False Then
    '   MsgBox("RATE : Integer Value Required !!!")
    '  Exit Sub
    'End If

    '    Try
    '       Str = "insert into DATA values("
    '      Str += IdText.Text.Trim()
    '     Str += ","
    '    Str += """" & ItemCodeText.Text.Trim() & """"
    '   Str += ","
    '  Str += """" & ItemNameText.Text.Trim() & """"
    ' Str += ","
    '   Str += """" & WeightText.Text.Trim() & """"
    '  Str += ","
    ' Str += RateText.Text.Trim()
    'Str += ")"
    ' Con.Open()
    'Cmd = New OleDbCommand(Str, Con)
    'Cmd.ExecuteNonQuery()
    'Dst.Clear()
    'Dad = New OleDbDataAdapter("SELECT * FROM DATA ORDER BY IDText", Con)
    'Dad.Fill(Dst, "test")
    'MsgBox("Record inserted successfully...")
    'Con.Close()
    'ADD.Focus()

    '======================= CHANGES ON +++++++
    '        IdText.Text = Val(IdText.Text) + 1
    '       ItemCodeText.Text = ""
    '      ItemNameText.Text = ""
    '     WeightText.Text = ""
    '    RateText.Text = ""
    '   ItemCodeText.BackColor = Color.Cyan
    '  ItemCodeText.Focus()
    '===========================
    ' Catch ex As Exception
    '    MessageBox.Show("Could Not Insert Record!!!")
    '   MsgBox(ex.Message & " -  " & ex.Source)
    '  Con.Close()
    'End Try
    'End Sub
    ' To delete the record from database
    Private Sub DELETEall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteAll.Click
        Dim Str As String
        If CheckIDText() = False Then
            MsgBox("IDText : Integer Value Required!!!")
            Exit Sub
        End If
        Try
            Str = "delete from DATA where IDText="
            Str += IdText.Text.Trim
            Con.Open()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Dst.clear()
            Dad = New OleDbDataAdapter("SELECT * FROM DATA ORDER BY IDText", Con)
            Dad.Fill(Dst, "test")

            MsgBox("Record deleted successfully...")
            If CurrentRow > 0 Then
                CurrentRow -= 1
                ShowData(CurrentRow)
            End If
            Con.Close()
        Catch ex As Exception
            MessageBox.Show("Could Not delete Record!!!")
            MsgBox(ex.Message & " -  " & ex.Source)
            Con.Close()

        End Try

    End Sub

    ' To select the data in First Name Field
    Private Sub ITEMCODEText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ItemCodeText.GotFocus
        ItemCodeText.SelectAll()
    End Sub
    ' To select the data in Last Name Field
    Private Sub ITEMNAMEtext_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles ItemNameText.GotFocus
        ItemNameText.SelectAll()
    End Sub
    ' To select the data in WEIGHT Field
    Private Sub WEIGHTText_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles WeightText.GotFocus
        WeightText.SelectAll()
    End Sub
    ' To select the data in RATE Field
    Private Sub RATEtext_GotFocus(ByVal sender As Object, ByVal e As System.EventArgs) Handles RateText.GotFocus
        RateText.SelectAll()
    End Sub
    ' To update the records in database

    Private Sub UpdateAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UpdateAll.Click

        If CheckIDText() = False Then
            MsgBox("IDText : Memo Value Required !!!")
            Exit Sub
        ElseIf CheckITEMCODE() = False Then
            MsgBox("ITEMCODE : Only Characters Allowed!!!")
            Exit Sub
        ElseIf CheckITEMNAME() = False Then
            MsgBox("ITEMNAME : Only Characters Allowed!!!")
            Exit Sub
        ElseIf CheckWEIGHT() = False Then
            MsgBox("WEIGHT : Only Value Allowed!!!")
            Exit Sub
        ElseIf CheckRATE() = False Then
            MsgBox("RATE : Numbers Value Required !!!")
            Exit Sub
        End If

        Try
            Dim Str As String
            Str = "update DATA set ITEMCODE="
            Str += """" & ItemCodeText.Text & """"
            Str += " where IDText="
            Str += IdText.Text.Trim()
            Con.Open()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Con.Close()
            Con.Open()
            Str = "update DATA set ITEMNAME="
            Str += """" & ItemNameText.Text & """"
            Str += " where IDText="
            Str += IdText.Text.Trim()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Con.Close()
            Con.Open()
            Str = "update DATA set WEIGHT="
            Str += """" & WeightText.Text & """"
            Str += " where IDText="
            Str += IdText.Text.Trim()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Con.Close()
            Con.Open()
            Str = "update DATA set RATE="
            Str += """" & RateText.Text & """"
            Str += " where IDText="
            Str += IdText.Text.Trim()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Con.Close()
            Dst.Clear()
            Dad = New OleDbDataAdapter("SELECT * FROM DATA ORDER BY IDText", Con)
            Dad.Fill(Dst, "test")
            MsgBox("Updated Successfully...")
        Catch ex As Exception
            MsgBox(ex.Message & "," & ex.Source)
        End Try
    End Sub
    ' To check the data in IDText field : whether numeric or not 
    Private Function CheckIDText()
        Try
            If IsNumeric(IdText.Text) = False Then
                ShowData(CurrentRow)
                IdText.Focus()
                Return False
            End If
        Catch ex As Exception
        End Try
        Return True
    End Function
    ' To check the data in RATE field : whether numeric or not 
    Private Function CheckRATE()
        Try
            If IsNumeric(RateText.Text) = False Then
                ShowData(CurrentRow)
                RateText.Focus()
                Return False
            End If
        Catch ex As Exception
        End Try
        Return True
    End Function
    ' To check the data in First Name Field : whether a string or not
    Private Function CheckITEMCODE()
        Try
            If ItemCodeText.Text = "" Or ValIDTextateString(ItemCodeText.Text) = False Then
                ShowData(CurrentRow)
                ItemCodeText.Focus()
                Return False
            End If
        Catch ex As Exception
        End Try
        Return True
    End Function
    ' To check the data in Last Name Field : whether a string or not
    Private Function CheckITEMNAME()
        Try
            If ItemNameText.Text = "" Or ValIDTextateString(ItemNameText.Text) = False Then
                ShowData(CurrentRow)
                ItemNameText.Focus()
                Return False
            End If
        Catch ex As Exception
        End Try
        Return True
    End Function
    ' To check the data in WEIGHT Field : whether a string or not
    Private Function CheckWEIGHT()
        Try
            ' If WeightText.Text = "" Or ValIDTextateString(WeightText.Text) = False Then
            If WeightText.Text = "" Or ValIDTextateString(WeightText.Text) = False Then
                ShowData(CurrentRow)
                WeightText.Focus()
                Return False
            End If
        Catch ex As Exception
        End Try
        Return True
    End Function
    ' To check the string for numeric values
    Private Function ValIDTextateString(ByVal Str)
        Dim i As Integer
        Dim ch As Char
        i = 0
        While i < Str.Length()
            ch = Str.Chars(i)
            If IsNumeric(ch) = True Then
                Return False
            End If
            i += 1
        End While
        Return True
    End Function
    ' To show the data in the datagrIDTextview
    Private Sub SHOWall_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ShowAll.Click
        Me.Hide()
        Form2.Show()
    End Sub
    ' To check whether ID exist in database
    Private Function IsIdTextExist()
        Dim Str, Str1 As String
        Dim i As Integer
        Str = IdText.Text

        i = 0
        While i <> Dst.Tables("test").rows.count
            'Str1 = Dst.Tables("test").Rows(i)("IDText")
            Str1 = Dst.Tables("test").Rows(i)("ID")
            If Str = Str1 Then
                Return True
            End If
            i += 1
        End While
        Return False
    End Function
    Private Sub IDText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles IdText.TextChanged
        '+++++++CHANGE FOR LAST ROW REMOVE COMA +++++++++++++++++
        'CurrentRow = Dst.Tables("test").Rows.Count - 1
        'ShowData(CurrentRow)
    End Sub
    Private Sub ClearAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ClearAll.Click
        CurrentRow = Dst.Tables("test").Rows.Count + IdText.Text
        ShowData(CurrentRow)
        IdText.Text = ""
        ItemCodeText.Text = ""
        ItemNameText.Text = ""
        WeightText.Text = ""
        GrossWeightText.Text = ""
        RateText.Text = ""
        LabourText.Text = ""
        PriceText.Text = ""
        CgstText.Text = ""
        SgstText.Text = ""
        IgstText.Text = ""
        GrandTotalText.Text = ""
    End Sub
    Private Sub ADD_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ADD.Click
        If IdText.Text <> 0 Then
            IdText.Text = Val(IdText.Text) + 1
            ItemCodeText.Text = ""
            ItemNameText.Text = ""
            WeightText.Text = ""
            RateText.Text = ""
            ItemCodeText.Focus()
            ItemCodeText.BackColor = Color.Cyan
        End If
    End Sub
    Private Sub ITEMCODEtext_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ItemCodeText.KeyDown
        If e.KeyCode = Keys.Enter Then
            'TextBox1.Text = TextBox1.Text & "<br>"
            ItemNameText.BackColor = Color.Cyan
            ItemNameText.Focus()
        End If
    End Sub
    Private Sub SaveAll_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveAll.Click
        Dim Str As String
        If CheckIDText() = False Then
            MsgBox("IDText : Integer Value Required !!!")
            Exit Sub
            'ElseIf IsIDTextExist() = True Then
            ' ElseIf IsIDtExist() = True Then
        ElseIf IsIdTextExist() = True Then
            MsgBox("IDText : IDText is already exist. Please choose another one..... For help please consIDTexter the data by clicking on ""Show Data""  Button")
            MsgBox("PRESS ADD BUTTON")
            ADD.Focus()
            ADD.BackColor = Color.Red
            Exit Sub
        ElseIf CheckITEMCODE() = False Then
            MsgBox("ITEMCODE : Only Characters Allowed!!!")
            Exit Sub
        ElseIf CheckITEMNAME() = False Then
            MsgBox("ITEMNAME : Only Characters Allowed!!!")
            Exit Sub
        ElseIf CheckWEIGHT() = False Then
            MsgBox("WEIGHT : Integer Value Required!!!")
            Exit Sub
        ElseIf CheckRATE() = False Then
            MsgBox("RATE : Integer Value Required !!!")
            Exit Sub
        End If

        Try
            Str = "insert into DATA values("
            Str += IdText.Text.Trim()
            Str += ","
            Str += """" & ItemCodeText.Text.Trim() & """"
            Str += ","
            Str += """" & ItemNameText.Text.Trim() & """"
            Str += ","
            Str += """" & RateText.Text.Trim() & """"
            Str += ","
            Str += """" & LabourText.Text.Trim() & """"
            Str += ","
            Str += """" & WeightText.Text.Trim() & """"
            Str += ","
            Str += """" & GrossWeightText.Text.Trim() & """"
            Str += ","
            Str += """" & PriceText.Text.Trim() & """"
            Str += ","
            Str += """" & CgstText.Text.Trim() & """"
            Str += ","
            Str += """" & SgstText.Text.Trim() & """"
            Str += ","
            Str += """" & IgstText.Text.Trim() & """"
            Str += ","
            Str += GrandTotalText.Text.Trim()
            ' Str += ","
            ' Str += RateText.Text.Trim()
            Str += ")"
            Con.Open()
            Cmd = New OleDbCommand(Str, Con)
            Cmd.ExecuteNonQuery()
            Dst.Clear()
            Dad = New OleDbDataAdapter("SELECT * FROM DATA ORDER BY IdText", Con)
            Dad.Fill(Dst, "test")
            MsgBox("Record inserted successfully...")
            Con.Close()
            ' Button5.Focus()

            '======================= CHANGES ON +++++++
            IdText.Text = Val(IdText.Text) + 1
            ItemCodeText.Text = ""
            ItemNameText.Text = ""
            WeightText.Text = ""
            RateText.Text = ""
            ItemCodeText.BackColor = Color.Cyan
            ItemCodeText.Focus()
            '===========================
        Catch ex As Exception
            MessageBox.Show("Could Not Insert Record!!!")
            MsgBox(ex.Message & " -  " & ex.Source)
            Con.Close()
        End Try
    End Sub
    Private Sub ItemNameText_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles ItemNameText.KeyDown
        If e.KeyCode = Keys.Enter Then
            RateText.BackColor = Color.Cyan
            RateText.Focus()

        End If

    End Sub
    Private Sub RateText_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles RateText.KeyDown
        If e.KeyCode = Keys.Enter Then
            'TextBox1.Text = TextBox1.Text & "<br>"
            LabourText.BackColor = Color.Cyan
            LabourText.Focus()

        End If

    End Sub
    Private Sub LabourText_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles LabourText.KeyDown
        If e.KeyCode = Keys.Enter Then
            'TextBox1.Text = TextBox1.Text & "<br>"
            WeightText.BackColor = Color.Cyan
            WeightText.Focus()
        End If

    End Sub

    Private Sub WeightText_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles WeightText.KeyDown
        If e.KeyCode = Keys.Enter Then
            'TextBox1.Text = TextBox1.Text & "<br>"
            SaveAll.BackColor = Color.GreenYellow
            GrandTotalText.BackColor = Color.DeepPink
            SaveAll.Focus()
        End If

    End Sub

    Private Sub NetWeight_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NetWeight.TextChanged
        WeightText.Text = Val(NetWeight.Text)
        GrossWeightText.Text = Val(NetWeight.Text) + Val(NetWeight.Text) * 10 / 100
        PriceText.Text = (Val(RateText.Text) + Val(LabourText.Text)) / 10 * Val(GrossWeightText.Text)
        CgstText.Text = Val(PriceText.Text) * 1.5 / 100
        SgstText.Text = Val(PriceText.Text) * 1.5 / 100
        IgstText.Text = Val(PriceText.Text) * 3 / 100
        GrandTotalText.Text = Val(PriceText.Text) + Val(CgstText.Text) + Val(SgstText.Text)

    End Sub

    Private Sub ItemCodeText_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ItemCodeText.TextChanged
        If ItemCodeText.Text = "" Then
            'IdText.Text = ""
            NetWeight.Text = ""
            ItemCodeText.Text = ""
            ItemNameText.Text = ""
            WeightText.Text = ""
            GrossWeightText.Text = ""
            RateText.Text = ""
            LabourText.Text = ""
            PriceText.Text = ""
            CgstText.Text = ""
            SgstText.Text = ""
            IgstText.Text = ""
            GrandTotalText.Text = ""
        End If

        If ItemCodeText.Text = "R" Then
            NetWeight.Text = 10
            ItemNameText.Text = "RING"

        End If
        If ItemCodeText.Text = "B1" Then
            NetWeight.Text = 20
            ItemNameText.Text = "BANGLE"

        End If
        If ItemCodeText.Text = "C1" Then
            NetWeight.Text = 15
            ItemNameText.Text = "CHAIN"

        End If
        If ItemCodeText.Text = "N1" Then
            NetWeight.Text = 5
            ItemNameText.Text = "NATHE"

        End If
        If ItemCodeText.Text = "K1" Then
            NetWeight.Text = 7
            ItemNameText.Text = "RING"

        End If
        If ItemCodeText.Text = "S1" Then
            NetWeight.Text = 30
            ItemNameText.Text = "SET"

        End If
        If ItemCodeText.Text = "T1" Then
            NetWeight.Text = 4
            ItemNameText.Text = "TOPS"

        End If
        If ItemCodeText.Text = "TK1" Then
            NetWeight.Text = 8
            ItemNameText.Text = "TEKA"

        End If
    End Sub

End Class
:code:

This post has been edited by modi123_1: 08 October 2017 - 08:31 AM
Reason for edit:: In the future, please use the [code] tag button in the editor..


Is This A Good Question/Topic? 0
  • +

Replies To: data type mismatch criteria expression in VB 2010

#2 modi123_1  Icon User is online

  • Suitor #2
  • member icon



Reputation: 13482
  • View blog
  • Posts: 53,820
  • Joined: 12-June 08

Re: data type mismatch criteria expression in VB 2010

Posted 08 October 2017 - 08:33 AM

Please copy/paste the error messages here. Perhaps explain where it is happening and with what data.
Was This Post Helpful? 0
  • +
  • -

Page 1 of 1