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 341070 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 Handles KimlikdbBindingNavigatorSaveItem. Click Me. Validate Me. KimlikdbBindingSource. EndEdit Me. TableAdapterManager. UpdateAll End Sub Private Sub Form1_Load 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 End Sub Private Sub Button1_Click 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 For intCurrPos = 0 To arrStrInput. Length - 1 Select Case intCurrPos Case 0 kimlik = arrStrInput Case 1 sehir = arrStrInput End Select Next strSQL = "INSERT INTO kimlik values " objCmd = New OleDbCommand 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 Case 1 sehir = arrStrInput 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 EbMaRtEu

Arkadaslar hatayi buldum: arrStrInput = Split hatali line i bunla degistirdim ama simdi database baglanma sorunu cikti o da bu satirda: objConn. Open problem: OledbException was unhandled. No error message available, result code: DB_E_ERRORSOCCURRED(0x80040E21). hatayi nerede yapmis olabilirim, nasil baglayacacgim database e? Ve datayi tablelara nasil yeslestirecegim EbMaRtEu

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 EbMaRtEu

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 Kayalardan kayarım yoktur benim ayarım (;

UP EbMaRtEu