Visual Basic

<br />
<Global.System.Diagnostics.DebuggerNonUserCodeAttribute(),  _<br />
         Global.System.ComponentModel.Design.HelpKeywordAttribute("vs.data.TableAdapter"),  _<br />
         Global.System.ComponentModel.DataObjectMethodAttribute(Global.System.ComponentModel.DataObjectMethodType.Fill, false)>  _<br />
        Public Overloads Overridable Function GetCustomerDetailsCustomerDetailID(ByVal dataTable As CustomerDetail.CustomerDetailsDataTable, ByVal CustomerDetailID As Global.System.Nullable(Of Integer)) As Integer<br />
            Me.Adapter.SelectCommand = Me.CommandCollection(1)<br />
            If (CustomerDetailID.HasValue = true) Then<br />
                Me.Adapter.SelectCommand.Parameters(1).Value = CType(CustomerDetailID.Value,Integer)<br />
            Else<br />
                Me.Adapter.SelectCommand.Parameters(1).Value = Global.System.DBNull.Value<br />
            End If<br />
            If (Me.ClearBeforeFill = true) Then<br />
                dataTable.Clear<br />
            End If<br />
            Dim returnValue As Integer = Me.Adapter.Fill(dataTable)<br />
            Return returnValue<br />
        End Function

Christian Graus wrote:

What possible reason could you have to do that ?

Imports System
Imports System.Text
Imports System.IO

module CSVReader
   public Sub Main()
      Dim theFile As String = "C:\PlayPen\TheData.txt"
      Dim rdr As StreamReader = new StreamReader(theFile)
      Using (rdr)
         Dim theKey As String = ""
         Dim input As String
         Dim recType As String
         
         while (rdr.Peek >= 0)
            input = rdr.ReadLine()       'Should check that not a blank line
            Dim recArray As String()     'if there is one then following fails
            recArray = input.Split(",")
            recType = recArray(0)
            Select Case(recType)
               case "11":
                  theKey = recArray(1)   'Need to change this to get type 11 key
                  Process11(input)
               case "12":
                  Process12(theKey, input)
               case "13":
                  Process13(theKey, input)
               case "14":
                  Process14(theKey, input)
               case else
                  Console.WriteLine("Oops: {0}", input)
            End Select
         End While
      End Using
   End Sub

   private Sub Process11(rec As String)
      Console.WriteLine("Proc11 {0}",rec)
   End Sub

   private Sub Process12(key11 As String, rec As String)
      Console.WriteLine("Proc12 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process13(key11 As String, rec As String)
      Console.WriteLine("Proc13 key = {0}: {1}", key11, rec)
   End Sub

   private Sub Process14(key11 As String, rec As String)
      Console.WriteLine("Proc14 key = {0}: {1}", key11, rec)
   End Sub
End Module

to attract an answer from the handful of people still using it.

You should put VB6 in your subject line.

Christian Graus wrote:

put VB6 in your subject line to attract an answer from the handful of people still using it

Christian Graus wrote:

I never use VB6

indian143 wrote:

When I compile it, it is compiling but when I run it it is saying compilation error "User-defined type not defined".