Merhaba sayin muridler, visual basic projemle ilgili bi sorun var.

Amacim, text dosyasinda ki bilgileri alip SQL database inde gerekli kolonlara yerlestirmek. 

Database i olusturmus durumdayim. database ismi "musteridb.mdf" table'lar "kimlik" ve "sehir"

text dosyasinda da bunlarin oldugunu varsayarsak:

1060 34
1070 06 

gormus oldugumuz gibi 1060 ve 34 olarak 2 satir var, ve ben bunlari sql table larda gerekli yerlere koymak istiyorum ama ne yaptiysam olmuyor :( visual basic te yeni sayilirim..

Bunlarda butun kodlarim, 

------------------------------------

Imports System.IO

Imports System.Text

Imports System.Data.OleDb

Public Class Form1

    Private Sub KimlikdbBindingNavigatorSaveItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KimlikdbBindingNavigatorSaveItem.Click

        Me.Validate()

        Me.KimlikdbBindingSource.EndEdit()

        Me.TableAdapterManager.UpdateAll(Me.MusteridbDataSet)

    End Sub

    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 'MusteridbDataSet.kimlikdb' table. You can move, or remove it, as needed.

        Me.KimlikdbTableAdapter.Fill(Me.MusteridbDataSet.kimlikdb)

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        'File to string vars

        Dim sr As StreamReader

        Dim strInput, arrStrInput() As String

        Dim intCurrPos As Integer

        Dim kimlik, sehir As Integer

        'DB vars

        Dim strSQL As String

        Dim objConn As New OleDbConnection("Provider=SQLOLEDB; Data Source= .\SQLEXPRESS; AttachDbFilename = " & _

                                           "C:\Users\Emre\documents\visual studio 2010\Projects\WindowsApplication1\WindowsApplication1\musteridb.mdf;Integrated Security = True; Connect Timeout = 30; " & _

                                           "User Instance = True")

        Dim objCmd As OleDbCommand

        sr = File.OpenText("C:\test2.txt")

        While sr.Peek <> -1

            strInput = sr.ReadLine

            arrStrInput = Split(strInput, ",", , CompareMethod.Text)

            For intCurrPos = 0 To arrStrInput.Length - 1

                Select Case intCurrPos

                    Case 0

                        kimlik = arrStrInput(intCurrPos)

                    Case 1

                        sehir = arrStrInput(intCurrPos)

                    End Select

            Next

            strSQL = "INSERT INTO kimlik(kimlik, sehir) values('" & kimlik & "', '" & sehir & "')"

            objCmd = New OleDbCommand(strSQL, objConn)

            objConn.Open()

            objCmd.ExecuteNonQuery()

            objConn.Close()

        End While

        sr.Close()

    End Sub

End Class

---------------------------------------------------------

eminim bir cok yerinde hata vardir ama bir hatada soyle diyiyor:

hatali cod: For intCurrPos = 0 To arrStrInput.Length - 1

                Select Case intCurrPos

                    Case 0

                                 kimlik = arrStrInput(intCurrPos)

                    Case 1

                        sehir = arrStrInput(intCurrPos)

                    End Select

"Conversion from string "e1 e1" to type 'Integer' is not valid."

bana yardim edenin 40 yil kolesi olurum :) yardimlarinizi esirgemeyin benim icin cok acil bir proje bu, bi kac haftaya kadar teslim etmem lazim, simdiden hepinize tesekkuru bir borc bilirim

bence başlığı düzenle sql yardım yaz. çünkü olay daha çok sql le alakalı.

vbasic bilirim ama sql bilgim yok. ama yardımcı olan çıkacaktır merak etme

ajan kardesim, VB kodlarindan da emin degilim fakat. Yani kesin ufak tefek hatalar vardir. Amacim text i ReadToEnd() ile okumak ve her satiri SQL de yerine koyabilmek. Insallah bi yardim eden cikar 

Arkadaslar hatayi buldum:

arrStrInput = Split(strInput, " ", , CompareMethod.Text)

hatali line i bunla degistirdim ama simdi database baglanma sorunu cikti o da bu satirda:

UP