Hittade följande kod till att skriva in till en accessdatabas (OBS detta är plockad från ett större exempel)

<code>

<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>

</code>

.............
<code>
Dim MySQL as string = "Insert into testInsert (fname, lname) values (@Fname, @Lname)"
Dim myConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & server.mappath("TestInsertDB.mdb") & ";" )
Dim Cmd as New OleDbCommand(MySQL, MyConn)
cmd.Parameters.Add(New OleDbParameter("@Fname", frmfname.text))
cmd.Parameters.Add(New OleDbParameter("@Lname", frmlname.text))
MyConn.Open()
cmd.ExecuteNonQuery
MyConn.Close()
label1.visible="true"

BindData()
</code>
Är denna bra eller är den fel eller onödig byggd?

Hej Carsten,

Ifall du vill minimera din kod lite så skulle du kunna skriva så här;

Dim MyConn As New OleDbConnection("ConnectionSträng")
Dim Cmd As New OleDbCommand("SQL-Sats", MyConn)
With Cmd.Parameters
     .Add("@x", Värde)
     .Add("@y", Värde)
End With
MyConn.Open()
Cmd.ExecuteNonQuery()
MyConn.Close()

' Övriga saker...

Label1.Visible = True
BindData()

Du har verkligen krymt, ser inte ens anslutningen till databasen :D


<code>
Dim MyConn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & server.mappath("TestInsertDB.mdb") & ";")
Dim Cmd As New OleDbCommand("Insert into testInsert (fname, lname) values (@Fname, @Lname)", MyConn)
With Cmd.Parameters
.Add("@x", "Hej")
.Add("@y", "Då")
End With
MyConn.Open()
Cmd.ExecuteNonQuery()
MyConn.Close()


Label1.Visible = True
BindData()

</code>

Typ så men då är det något som blir galet

Jösses, jag skrev för snabbt ;-)

Nu ska det vara ändrat... *skäms*

Carsten,

mitt tips till dig är att helst inte plocka exempelkod om du inte kan läsa av den och avgöra om den fungerar för ditt syfte, detta av många skäl, det blri svårare att hitta buggar och brister i sitt system om man inte förstår vad systemet gör, sedan så kan man av misstag öppna upp hål som andra ottrevligare människor kan utnyttja för att förstöra det man har.

Om du vill ha en smidig kod för databas access och inte har lust att förstå hur detta fungerar i detalj rekomenderar jag dig att använda Microsoft Data Access Block som har effektivaste koden för just databas access av olika slag. Där du bara behöver förstå hur du använder den och inte vad den gör internt.

MS Data application Block:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnbda/html/daab-rm.asp

Mvh Johan