hejsan jag håller på med en DAL komponent och jag vet inte om man kan skriva om paramenterarna på ett bättre sätt och utan att importera sqlclient? hoppas nån kan hjälpa mig!
Imports System.Data.SqlClient
Namespace MyDalApp
Public Class UniversalDAL
Public Function GetData(ByVal stored As String, ByVal con As IDbConnection, ByVal input As Integer, ByVal output As Integer)
Dim cmd As New SqlCommand(stored, con)
cmd.CommandType = CommandType.StoredProcedure
cmd.Parameters.Add("@anvandarnamn", SqlDbType.VarChar, 15).Value = "pelle"
cmd.Parameters.Add("@losenord", SqlDbType.VarChar, 15).Value = ""
Dim param As SqlParameter = cmd.Parameters.Add("@inloggad", SqlDbType.Int)
param.Direction = ParameterDirection.Output
Dim inloggad As Integer = param.Value
Try
con.Open()
Catch
End Try
Return cmd.ExecuteReader()
End Function
End Class
End Namespace
Det blir väll inte särskillt skalbart, ponera att du ska ha fler metoder som hämtar ut något. Kolla vad som frekvent återkommer och dela upp det i fler metoder med egna/självklara ansvarsområden. Tex en som skapar sqlParemeters(in), en som skapar SQLCommand, en som skapar sqlParameters(out) etc. Du kan tex ta in en collection med sqlParameters.
Sen förstår jag inte varför du har
uDal.GetData("medlemmar_login", oledbCon, 0, 0)
ska du bara kunna hämta ut en medlem? I ditt fall "Pelle"
Om du har ett vs.net projekt så får du:
1. Lägga till DAAB projektet i din solution
2. Skapa en referens till DAAB projektet i ditt projekt
3. Kompilera