Gå til innhold

Masseoppdatering VB2005 og MSSQL


Anbefalte innlegg

Heisan

 

Jeg er et nytt medlem her, men har lang fartstid fra programvare utviklings faget. Har nå startet med Visual Studio 2005 herunder VIsual Basic og prøver å få en oversikt over noen forskjellige ting som er litt annerledes i VB i forhold til det jeg er vant til. Lurer på følgende:

 

I mitt forrige språg kunne jeg gjøre slik:

 

| Loop i = 1 to 100

| MyFile.Field1 = 'SomeString' & i

| Add(MyFile)

| End!Loop

 

ok. Brukte PIPE | bare for å få til TAB

 

Hvordan gjørjegtilsvarende i VB2005medSQL.Jeg har laget et datasett og jeg klarerå vise dette i listbokseretc.i vinduer,men finnerikke ut hvordan jeg med kode kan masse legge inn poster.

 

Fintomnoen kan hjelpe

 

mvh

Ole Morten Heien

Lenke til kommentar
Videoannonse
Annonse

Jeg sjønner ikke helt hva du mener, men kansje noe sånt?

 


       Dim Conn As SqlConnection = New SqlConnection("connectionstring")
       Dim Comm As SqlCommand = New SqlCommand()
       Comm.Connection = Conn

       Dim Reader As SqlDataReader = Comm.ExecuteReader()


       Dim StringArr() As String = Nothing
       Dim Counter As Integer = 1

       Conn.Open()

       While Reader.Read()
           StringArr(Counter) = Reader.GetString("kolonnenavn eller nummer")
           Counter = Counter + 1
       End While

       Conn.Close()

 

Jeg har ikke testet det, men jeg tror det skal virke mer eller mindre :)

 

Var sikkert ikke det du mente uansett....

Lenke til kommentar

Heisan. Takk for svar. Nå skjer det noe her :-D

 

Du, lurer på om ikke dette er det motsatt. Se for deg følgende mikro eksempel:

 

Jeg har en fil med poststeder. Filen er tekst basert og komma separert. Denne filen skal leses inn og lagres på en SQL server. Såre enkelt skulle en tro, men jeg har for liten kjennskap til dette her og aner rett og slett ikke hvordan dette gjøres. Jeg har lest meg til at det er noe som heter, som du sier, READER. Men det er også noe som heter DataSet. Leste noe om at den ene var å foretrekke i forhold til den andre i noen tilfeller, men klarte liksom ikke helt å få den store oversikten.

 

Fint om noen kan hjelpe meg videre her, da jeg ikke klarer se at dette skal være vanskelig.

 

Ole

Lenke til kommentar

Noe sånt da ? :)

 


   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
       Dim Array() As String = GetWords()
       SetSQL(Array)
   End Sub

   Private Function GetWords()
       Dim Array() As String = Nothing
       Dim Buffer As String = Nothing

       Dim FileReader As IO.TextReader = New IO.StreamReader("C:\txt.txt")
       Buffer = FileReader.ReadToEnd()

       Array = Split(Buffer, ",")

       Return Array

   End Function

   Private Sub SetSQL(ByVal Array() As String)
       Dim Conn As SqlConnection = New SqlConnection("Connection string")
       Dim Comm As SqlCommand = New SqlCommand()
       Comm.Connection = Conn

       Conn.Open()

       For Each Str As String In Array
           Comm.CommandText = "INSERT INTO **database** (felt) VALUES ('" & Str & "')"
           Comm.ExecuteNonQuery()
       Next
   End Sub

 

Er det noe sånt?

 

Jeg kan godt kommentere kodet hvis det trengs :) (Noe jeg tviler på :p)

 

Skrik ut hvis det var galt dette og :)

Endret av ze5400
Lenke til kommentar

Opprett en konto eller logg inn for å kommentere

Du må være et medlem for å kunne skrive en kommentar

Opprett konto

Det er enkelt å melde seg inn for å starte en ny konto!

Start en konto

Logg inn

Har du allerede en konto? Logg inn her.

Logg inn nå
×
×
  • Opprett ny...