تبدیل نوع دیتا تایپ (تبدیل دیتا تایپ های سیستمی وی بی به دیتا تایپ های بانک اطلاعاتی)

[arman_Delta2002]

سلام
میخواستم دیتا تایپ های یک پارامتر از کامند رو به دیتا تایپ نوع اکسز یا اس کیو ال تبدیل کنم چطور میشه این کار رو کرد؟

     Dim Command1 As New OleDb.OleDbCommand

    Dim Command2 As New OleDb.OleDbCommand

    Dim con As New OleDb.OleDbConnection

    Dim dt As New DataTable

    Dim ds As New DataSet

    Dim Da As New OleDb.OleDbDataAdapter

    Dim conData As New OleDb.OleDbType

    Private Sub SQLParametrFinder(ByVal SQLText As String, ByVal DataComand As OleDb.OleDbCommand)

        Command2.CommandText = "SELECT  top 1 * FROM D_Company"

        Command2.Connection = con

        Command1.Connection = con

        Command1.CommandText = TextBox1.Text

        Da.SelectCommand = Command2



        Da.Fill(ds, "DaftarMali")

        Dim I As Integer

        For I = 0 To ds.Tables(0).Columns.Count - 1

            ListBox1.Items.Add(ds.Tables(0).Columns(I).ColumnN  ame)

            ListBox2.Items.Add(ds.Tables(0).Columns(I).DataTyp  e.ToString)



            Command1.Parameters.Add(New OleDb.OleDbParameter("@" & ds.Tables(0).Columns(I).ColumnName, ds.Tables(0).Columns(I).DataType))

            ListBox3.Items.Add(Command1.Parameters.Item(I).DbT  ype)

        Next

        Da.InsertCommand = Command1



    End Sub

در کد بالا یک سری پارامتر اضافه میشه به کامند از انواع مختلف به عنوان مثال یک فیلد به اسم F1 از نوع رشته ای اضافه میشه به لیست باکس ولی وقتی مخوام یک نوع رشته ای اضافه بشه به پارامتر نمیشه این کار رو کرد به دلیل این که فیلد رشته ای اضافه شده از نوع System.String میشه ولی فیلد های بانک اطلاعاتی از نوع VarWChar میشناسه حالا چطور بدون استفاده از Select case این تبدیل انجام میشه؟

[arman_Delta2002]

اینم جواب

    Public Shared Function TypeToDbType1(ByVal t As Type) As DbType

        Dim dbt As DbType

        Try

            dbt = CType(System.Enum.Parse(GetType(DbType), t.Name), DbType)

        Catch

            dbt = DbType.Object

        End Try

        Return dbt

    End Function