Oprette forbindelse til SQL

Henter connection string fra din app.config, laver en SqlConnection udfra den, laver en
SqlCommand med SQL sætning, kalder ExecuteReader/ExecuteNonQuery/ExecuteScalar på
den.

Kan du lave et lille eksempel? Kan nemlig ikke få det til at virke.. Har prøvet med samme måde som med asp.net...

<?xml version="1.0" encoding="utf-8" ?>
<configuration>
    <connectionStrings>
        <add name="ExpressTest"
            connectionString="Server=ARNEPC3\SQLEXPRESS;Integrated Security=SSPI;Database=Test"
            providerName="System.Data.SqlClient" />
    </connectionStrings>
</configuration>

Imports System
Imports System.Data.SqlClient
Imports System.Configuration

Namespace E
    Public Class Program
        Public Shared Sub Main(args As String())
            Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("ExpressTest").ConnectionString)
            con.Open()
            Dim cmd As New SqlCommand("SELECT * FROM T1", con)
            Dim rdr As SqlDataReader = cmd.ExecuteReader()
            While rdr.Read()
                Console.WriteLine(rdr(0) & " " & rdr(1))
            End While
            rdr.Close()
            con.Close()
            Console.ReadKey()
        End Sub
    End Class
End Namespace

Den kommer og siger at ConfigurationManager ikke er "declared"..

Jeg har det til at se sådan her ud nu:

Dim strSQL As String = "INSERT INTO Projects (Title, StartingDate, EndDate, Employe, Costumer) VALUES (@Title, @StartingDate, @EndDate, @Employe, @Costumer)"

        Dim con As New SqlConnection(ConfigurationSettings.AppSettings("Conn"))
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)

        Dim paramID As SqlParameter
        paramID = New SqlParameter("@Title", SqlDbType.VarChar)
        paramID.Value = Title.Text
        cmd.Parameters.Add(paramID)

        Dim paramStartingDate As SqlParameter
        paramStartingDate = New SqlParameter("@StartingDate", SqlDbType.Date)
        paramStartingDate.Value = StartingDate.Text
        cmd.Parameters.Add(paramStartingDate)

        Dim paramEndDate As SqlParameter
        paramEndDate = New SqlParameter("@EndDate", SqlDbType.Date)
        paramEndDate.Value = EndingDate.Text
        cmd.Parameters.Add(paramEndDate)

        Dim paramEmploye As SqlParameter
        paramEmploye = New SqlParameter("@Employe", SqlDbType.VarChar)
        paramEmploye.Value = Employe.Text
        cmd.Parameters.Add(paramEmploye)

        Dim paramCostumer As SqlParameter
        paramCostumer = New SqlParameter("@Costumer", SqlDbType.Int)
        paramCostumer.Value = Costumer.SelectedValue
        cmd.Parameters.Add(paramCostumer)

        cmd.ExecuteNonQuery()

        con.Close()

Men den kommer med en fejl når jeg køre koden:

The ConnectionString property has not been initialized.

Bruger du .NET 1.1 ??

Hvis ikke så brug ConfigurationManager som i mit eksempel !

Husk en ref til System.Configuration.dll !

Nej jeg bruger .net 3.5...

Så kommer den igen med det med at ConfigurationManager ikke er "declared"..

Du får lige hele siden:

Imports System
Imports System.Data.SqlClient
Imports System.Configuration

Public Class NewProject

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim strSQL As String = "INSERT INTO Projects (Title, StartingDate, EndDate, Employe, Costumer) VALUES (@Title, @StartingDate, @EndDate, @Employe, @Costumer)"

        Dim con As New SqlConnection(ConfigurationManager.ConnectionStrings("Conn").ConnectionString)
        con.Open()
        Dim cmd As New SqlCommand(strSQL, con)

        Dim paramID As SqlParameter
        paramID = New SqlParameter("@Title", SqlDbType.VarChar)
        paramID.Value = Title.Text
        cmd.Parameters.Add(paramID)

        Dim paramStartingDate As SqlParameter
        paramStartingDate = New SqlParameter("@StartingDate", SqlDbType.Date)
        paramStartingDate.Value = StartingDate.Text
        cmd.Parameters.Add(paramStartingDate)

        Dim paramEndDate As SqlParameter
        paramEndDate = New SqlParameter("@EndDate", SqlDbType.Date)
        paramEndDate.Value = EndingDate.Text
        cmd.Parameters.Add(paramEndDate)

        Dim paramEmploye As SqlParameter
        paramEmploye = New SqlParameter("@Employe", SqlDbType.VarChar)
        paramEmploye.Value = Employe.Text
        cmd.Parameters.Add(paramEmploye)

        Dim paramCostumer As SqlParameter
        paramCostumer = New SqlParameter("@Costumer", SqlDbType.Int)
        paramCostumer.Value = Costumer.SelectedValue
        cmd.Parameters.Add(paramCostumer)

        cmd.ExecuteNonQuery()

        con.Close()
    End Sub
End Class

Har du husket ref til System.Configuration.dll ?

ja med Imports System.Configuration... Skal jeg gøre det på andre måder?

Arh.. Har fundet ud af at lave en reference til System.Configuration.dll..

Men den udføre ikke koden.. Jeg har tilføjet en Close() i bunden af kode, så den lukke min form når jeg klikker på knappen.. og det virker fint.. Men den tilføjer ikke noget til databasen, og kommer heller ikke med fejl..

Hvis jeg laver denher:

MsgBox(cmd.ExecuteNonQuery().ToString)

Retunere den godt nok et 1 tal.. men der er bare ingen ting i databasen..

Er du helt sikker på at rækken ikke er blebet indsat ? Og at du ikke bare mangler
at refreshe ?

Når jeg bruger min database explorer i VS2008 og bruger execute sql så den opdatere kommer der ikke noget frem..

Har fundet ud af det har noget med mine datoer at gøre..

De er i formattet 01-12-2008... Og det skal jo så laves om til 2008-12-01..

Du bør kunne:

dinparam.Value = DateTime.Parse(ditfelt.Text)

Super det var sådan det skulle være.. Hvade ellers prøvet med diverse konvateringer...

Takker meget for hjælpen ;) Smid et svar...

kommer her