Forum
Aktif konular
Üyeler
Kurallar
Arama
Visual Basic Yardim! Visual Basic Yardim!
-
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 06gormus 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:
problem:
hatayi nerede yapmis olabilirim, nasil baglayacacgim database e? Ve datayi tablelara nasil yeslestirecegim
-
UP
Kısayol
Şikayet
Özel Mesaj
Alıntı yap
Cevapla