FRA VB til .Net-application

Er det til filupload ?

Hvis der skal du kigge her:
http://support.microsoft.com/default.aspx?scid=kb;en-us;323245

Mht din replace bruger man normalt
EnTextbox.Text.Replace("'", "''")

Hvis det skal gemmes i database er det ikke nødvendigt med den replace function det ordner sig selv med Parameter i din sql sætning ;o)

/Websam

Det var måske mere relevant med noget validering på file extension ?

/Websam

minstreng.Replace virker fint -- tak for det

Min procedure skal jeg ikke bruge til fileupload. Jeg skal bruge den til at lave en fil indeholdende et databasedump som jeg selv laver ved at bruge indbyggede stored procedures.

>websam
hvad mener du med Parameter i min sqlsætning ? Kan du give et eksempel

Ja det kan jeg da, eksemplet er til version 1.1 af platformen :

Dim objDb As DbClass = New DbClass
Dim objComm = New SqlCommand
objComm.Parameters.Add("@Fornavn", SqlDbType.NVarChar)
objComm.Parameters.Add("@Efternavn", SqlDbType.NVarChar)
objComm.Parameters("@Fornavn").Value = Din variabel
objComm.Parameters("@Efternavn").Value = Din variabel
objComm.Connection = objDb.SqlConnect
Try
    objComm.CommandText = "Insert Into tbl_navne (Fornavn, Efternavn) Values (@Fornavn, @Efternavn)"
    objComm.ExecuteNonQuery()
Catch ex As Exception
    Return ex.Message
Finally
    objDb.SqlClose()
End Try

Tag dig ikke af min connection, det har du sikkert styr på, men brugen af parametre kandu lige så godt gøre til vane med det samme i alle dine database behandlings metoder.

/Websam

>websam

Har jeg forstået det rigtigt hvis jeg tror at fidusen ved dine parametre er at man så ikke behøver at lave replace(feltindhold,"'","''") for at undgå sql-injektions og ikke behøver replace(kommatal,",",".") i felter af typen "flydende tal" og måske også undgår diverse krumspring vedrørende dato'er  ?

Altså at parametrene med angivne typer sørger for at maskinen gør "det rigtige" i sql-sætningerne ?

Jeg fik min procedure til at se sådan ud:

    Sub SaveFile(ByVal filepath As String, ByVal str As String)
        Dim oFile As System.IO.File
        Dim oWrite As System.IO.StreamWriter
        oWrite = oFile.CreateText(filepath)
        oWrite.WriteLine(str)
        oWrite.Close()
    End Sub 'SaveFile

Og tak for hjælpen begge to, og læg et svar så jeg kan give point.

1. Ja parameterne sørger for at fjerne (')er så du behøver ikke at lave den replace på tekst der skal lagres.

2. Hvad angår kommatal bliver jeg dig svar skyldig :o(

3. Datoer plejer jeg at lave i databasen med getdate()[MsSql] el. now()[Access], men hvis du vil smide en dato med i databasen igennem en parameter, så er det bare sådan her :

objComm.Parameters.Add("@Dato", SqlDbType.DateTime)
objComm.Parameters("@Dato").Value = Now() el. en variabel med dato

Og i din sql (DatoFelt) Values (@Dato)

Så skulle det være på plads ;o)

/Websam

Og så kom du mig i forkøbet med metoden, men jeg ville have foreslået :

Imports System.IO

Sub SaveFile(ByVal filepath As String, ByVal str As String)
    Dim oFile As File
    Dim oWrite As StreamWriter
    oWrite = oFile.CreateText(filepath)
    oWrite.WriteLine(str)
    oWrite.Close()
End Sub

Ved at lave imports behøver du ikke at skal skrive System.IO ved alle instantieringer (eller hvordan det lige staves *GGG*)

/Websam

svar :)

>dr_chaos

dit svar skulle vist have været et svar :-)

hehe det er tidligt lørdag og 3 timer siden min datter synes at nu skulle vi op, så er ikke helt vågen :)

3 timer ??? så må du da være vågen *GGG*

jeps :)
enormt :)