Dataset og datareader i forlængelse af database klasse

Jeg kan hjælpe med simpel læsning og opdatering.

simpel opdatering:

Dim Cmd As XxxxCommand = New XxxxCommand("INSERT INTO tabelnavn VALUES(123,'abc')", Conn);
Cmd.ExecuteNonQuery

simpel læsning med data reader:

Dim Cmd As XxxxCommand = New XxxxCommand ("SELECT * FROM tabelnavn", Conn)
Dim Rdr As XxxxxDataReader = Cmd.ExecuteReader
While Rdr.Read
  Dim f1 As Integer = CType(Rdr(0), Integer)
  Dim f2 As String = CType(Rdr(1), String)
  ...
End While

Xxxx er så Sql, OleDb eller MySql afhængig af databasen.

DataSet bruges f.eks. som:

Dim da As XxxxDataAdapter = New XxxxDataAdapter("SELECT * FROM tabelnavn", Conn);
Dim ds As DataSet ds = New DataSet();
da.Fill(ds);

(glem de par semikolonner til sidst - det er en lille C# vane)

Dim da As XxxxDataAdapter = New XxxxDataAdapter("SELECT * FROM tabelnavn", Conn)
Dim ds As DataSet ds = New DataSet()
da.Fill(ds)

Der er mange måder at organisere et data lag på.

Jeg kan ikke gennemskue hvordan du vil have det.

Men prøv og læs diskussionen her:
  http://www.eksperten.dk/spm/527659

Vi kommer lidt omkring.

Jamen det skal jeg da lige prøve at forklare dig.

1. Database klasse der udelukkende holder på connection til diverse databaser som eks. ovenfor viser.

2. Datalags klasse der kun har med select, insert, update og delete i databasen

3. Buisnesslags klasse der tager sig af diverse håndtering af data fra formular og andet inden der tagaes fat i datalaget.

4. Designlag ja det giver jo næsten sig selv her er der tale om mine .aspx, .ascx sider osv.

Hjælper det lidt på det ? :o)

Jeg vil lige teste lidt med det du har skrevet indtil nu dog er jeg lidt i tvivl med det her Xxxx du skriver i f.eks denne :
Dim da As XxxxDataAdapter = New XxxxDataAdapter("SELECT * FROM tabelnavn", Conn)

Hvad er det ?

/websam

Lige en ting mere hvilke Imports skal jeg have med for at få det til at virke bortset fra min database klasse ?

/websam

DataSet er i System.Data

SqlYyyyyy er i System.Data.SqlClient
OleDbYyyyy er i System.Data.OleDb
MySqlYyyyyy er i ByteFX.MySqlClient

Xxxx er så Sql, OleDb eller MySql afhængig af databasen.

(du kan også lave det pænt med de interfaces som de database specifikek klasser
implementerer)

Jeg forstod godt dine lag men ikke hvordan du vil have lag 1 og 2 til at se ud i praksis.

Det er nemlig ikke lige nemt. Som det også må fremgå af den tråd jeg linkede til.

Til en vis grad ligger .NET slet ikke op til den lag opdeling, fordi både win forms
og web forms har kontroller som bruger DataSet direkte.

Hvis jeg laver denne :

Dim objCommand As SqlCommand = New SqlCommand("Select * From Users", Conn)

Skriver den at SqlCommand ikke defineret, hvorfor det ?

/Websam

Prøv at importer System.Data.SqlClient

Og ja jeg kan godt se at det heller ikke er det visual Studio .net ligger op til men det er da meget nemmere at vedligeholde database adgang på den måde istedet for at der skal trækkes en database connection hver gang den skal bruges.

Min database klasse ser ud som følger dog uden alle functions :

Imports System.Data.SqlClient
Imports System.Data.OleDb

Public Class cls_DbClass
    '--- Skaber forbindelse til sql server
    Public Shared Sub SqlConnect()
        Dim ConnString As String = "Data Source=NEWAGE-LABTOP2;Initial Catalog=db;User Id=user;Password=pass;"
        Dim Conn = New SqlConnection(ConnString)
        Conn.Open()
    End Sub

    '--- Skaber forbindelse til access database
    Public Shared Sub AccessConnect()
        Dim StrPath As String = "C:\Data\database.mdb"
        Dim ConnString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & StrPath
        Dim Conn = New OleDbConnection(ConnString)
        Conn.Open()
    End Sub
End Class

Denne laver jeg så en Imports på, på de sider hvor jeg skal bruge den og i dette tilfælde på min datalags klasse, hvor jeg vil lave disse select, insert osv. functioner som så retunere et dataset. Det virker for mig som en ganske fin løsning, men ikke sikkert at det er det bedste ?!? :o)

/Websam

Du skal være opmærksom på at SqlConnection og alle de andre XxxxConnection
har en connection pool bagved, således at det ikke er en dyr operation
at lave en connection, fordi der skal ikke laves en fysisk database connection kun
alokeres en eksisterende fra en connection pool.

Og jeg forstår ikke helt de metoder.

connection string er hardcoded

connection gemmes ikke (er lokal variabel i metoderne)

Og det forstod jeg så ikke et klap af :o)

/Websam

Ok så fik jeg læst det igennem med Pooling og som jeg opfatter det forsvinder den først når connectionen lukkes igen er det korrekt ?

Og er det muligt at du kan skrive den stump kode om til vb du viste i den anden tråd ?

Eller gik du helt kold over min uvidenhed :o)

/Websam

Næ.

.NET laver et antal fysiske connections til databasen.

Når din kode laver en Open så reserver du en connection i poolen og
når du laver en Close så freeer du den igen.

De fysiske connections er åbne indtil din applikation lukker ned.

[jeg mener at .NET under nogen omdstændigheder justerer størrelsen af poolen,
men det ændrer ikke så meget på princippet]

Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports System.Data.OleDb
Imports System.Data.Odbc

Public Class MultiDb
    Public Shared Function GetConnection(ByVal constr As String) As IDbConnection
        If constr.ToUpper.IndexOf("DRIVER=") >= 0 Then
            Return New OdbcConnection (constr)
        Else
            If constr.ToUpper.IndexOf("PROVIDER=") >= 0 Then
                Return New OleDbConnection (constr)
            Else
                If constr.ToUpper.IndexOf("TRUSTED_CONNECTION=") >= 0 OrElse constr.ToUpper.IndexOf("INTEGRATED SECURITY=") >= 0 Then
                    Return New SqlConnection (constr)
                Else
                    Return Nothing
                End If
            End If
        End If
    End Function
End Class

Class TestClass

    Private Shared Sub test(ByVal constr As String)
        Dim con As IDbConnection = MultiDb.GetConnection(constr)
        con.Open
        Dim cmd As IDbCommand = con.CreateCommand
        cmd.CommandText = "SELECT * FROM T1"
        Dim rdr As IDataReader = cmd.ExecuteReader
        While rdr.Read
            Dim f1 As Integer = CType(rdr(0), Integer)
            Dim f2 As String = CType(rdr(1), String)
            Console.WriteLine(f1 + " " + f2)
        End While
        con.Close
    End Sub

    Public Shared Sub Main(ByVal args As String())
        test("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Database\MSAccess\Test.mdb")
        test("server=ARNEPC2;Integrated Security=SSPI;database=Test")
    End Sub
End Class

Jeg går udfra at det var den kode du tænkte på.

Ideen er den at den returnerer en IDbConnection som er et interface som
alle XxxxConnection implementerer og som derfor gør at resten af koden
kan laves database uafhængig.

OK at jeg ligger et svar ?

??

Jeg har desværre ikke fået prøvet det af endnu da jeg har ret meget om ørene endnu, men jeg skal nok kigge på så hurtigt som muligt.

/Websam