problem with .aspx.vb code

[slinky]

I'm working on a problem with a form with 6 textboxes and a submit
button for adding data to an Access database.I changed a few things
and got it down to 1 error!. I have a Sub
Page_Load and a Sub btnAdd:
(It still doesn't like the 'SourceVersion' in the Sub Page_Load).
Also
I viewed the .aspx in the browser and got an error which I posted
complete at the bottom of this post). Thanks for any clues... I'm
almost there!!

Imports System.Data
Imports System.Data.Ole Db
Public Class Default5
Inherits System.Web.UI.P age
Private Sub Page_Load(ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles MyBase.Load
Dim cnn As OleDbConnection = _
New OleDbConnection ("Data Source=(local); " & _
"Initial Catalog=Assets; Integrated Security=SSPI")
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapte r = New OleDbDataAdapte r()
If IsPostBack Then
Dim cmdSelect As OleDbCommand = _
cnn.CreateComma nd()
cmdSelect.Comma ndType = CommandType.Tex t
cmdSelect.Comma ndText = _
"SELECT (Asset Number, Description, Serial_Number, Mfg, Asset Type,
RDCnumber) FROM Assets"
Dim cmdInsert As OleDbCommand = _
cnn.CreateComma nd()
cmdInsert.Comma ndType = CommandType.Tex t
cmdInsert.Comma ndText = _
"INSERT INTO Assets " & _
"(Asset Number, Description, Serial_Number, Mfg, Asset Type,
RDCnumber) " & _
"VALUES(@Asset_ Number, @Description, @Serial_Number, @Mfg,
@AssetType,
@RDCnumber"
cmdInsert.Param eters.Add("@txt Asset_Number",
OleDbType.Doubl e, 12, "Asset_Numb er")
cmdInsert.Param eters.Add("@txt Description",
OleDbType.WChar , 40, "Descriptio n")
cmdInsert.Param eters.Add("@txt Serial_Number",
OleDbType.WChar , 30, "Serial_Number" )
cmdInsert.Param eters.Add("@txt Mfg", OleDbType.WChar , 30,
"Mfg")
cmdInsert.Param eters.Add("@txt AssetType",
OleDbType.WChar ,
30, "AssetType" )
cmdInsert.Param eters.Add("@txt RDCNumber",
OleDbType.WChar ,
30, "RDCnumber" )
Dim SourceVersion As DataRowVersion
SourceVersion = DataRowVersion. Original
da.SelectComman d = cmdSelect
da.InsertComman d = cmdInsert
da.Fill(ds, "Assets")
End If
End Sub
Private Sub btnAdd_Click( _
ByVal sender As System.Object, _
ByVal e As System.EventArg s) Handles btnAdd.Click
Dim ds As DataSet = New DataSet()
Dim da As OleDbDataAdapte r = New OleDbDataAdapte r()
Dim dr As DataRow = ds.Tables("Asse ts").NewRow()
dr(0) = txtAsset_Number .Text
dr(1) = txtDescription. Text
dr(2) = txtSerial_Numbe r.Text
dr(3) = txtMfg.Text
dr(4) = txtAssetType.Te xt
dr(5) = txtRDCnumber.Te xt
ds.Tables("Asse ts").Rows.Add(d r)
da.Update(ds, "Assets")
End Sub
End Class
_______________ ___________
Server Error in '/' Application.
---------------------------------------------------------------------------*-----
An OLE DB Provider was not specified in the ConnectionStrin g. An
example would be, 'Provider=SQLOL EDB;'.
Description: An unhandled exception occurred during the execution of
the current web request. Please review the stack trace for more
information about the error and where it originated in the code.
Exception Details: System.Argument Exception: An OLE DB Provider was
not specified in the ConnectionStrin g. An example would be,
'Provider=SQLOL EDB;'.
Source Error:
Line 5: Private Sub Page_Load(ByVal sender As System.Object, _
Line 6: ByVal e As System.EventArg s) Handles MyBase.Load
Line 7: Dim cnn As OleDbConnection = _
Line 8: New OleDbConnection ("Data Source=(local); " & _
Line 9: "Initial Catalog=Assets; Integrated Security=SSPI")
Source File: E:\kunden\homep ages\26\d190091 667\Default5.as px.vb
Line: 7
Stack Trace:
[ArgumentExcepti on: An OLE DB Provider was not specified in the
ConnectionStrin g. An example would be, 'Provider=SQLOL EDB;'.]
System.Data.Ole Db.OleDbConnect ionString.Valid ateProvider(Str ing
progid) +1044303
System.Data.Ole Db.OleDbConnect ionString.Valid ateConnectionSt ring(String
connectionStrin g) +221
System.Data.Ole Db.OleDbConnect ionString..ctor (String
connectionStrin g, Boolean validate) +271
System.Data.Ole Db.OleDbConnect ionFactory.Crea teConnectionOpt ions(String
connectionStrin g, DbConnectionOpt ions previous) +36
System.Data.Pro viderBase.DbCon nectionFactory. GetConnectionPo olGroup(String
connectionStrin g, DbConnectionPoo lGroupOptions poolOptions,
DbConnectionOpt ions& userConnectionO ptions) +125
System.Data.Ole Db.OleDbConnect ion.ConnectionS tring_Set(Strin g
value) +56
System.Data.Ole Db.OleDbConnect ion.set_Connect ionString(Strin g
value) +4
System.Data.Ole Db.OleDbConnect ion..ctor(Strin g connectionStrin g)
+21
Default5.Page_L oad(Object sender, EventArgs e) in E:\kunden
\homepages\26\d 190091667\Defau lt5.aspx.vb:7
System.Web.UI.C ontrol.OnLoad(E ventArgs e) +99
System.Web.UI.C ontrol.LoadRecu rsive() +47
System.Web.UI.P age.ProcessRequ estMain(Boolean
includeStagesBe foreAsyncPoint, Boolean includeStagesAf terAsyncPoint)
+1061

[=?ISO-8859-1?Q?G=F6ran_Andersson?=]

slinky wrote:

OK I double checked and corrected any incident of misspelling or
brackets missing and corrected those.

And now it looks like?

But still the browser brings up
this: (And I know nothing about
reading a stack)

Also, do I have this syntaxed correctly (ignore the '& _'s as they are
just from reformat on paste)?:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=Server.M apPath(~/App_Data/Lowes.mdb));" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

No. You have put Server.MapPath inside the string. There it doesn't mean
anything at all. Concatenate the return value from the method into the
string:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

--
Göran Andersson
_____
http://www.guffa.com

[slinky]

I tried this exact paste:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

And it didn't like the format so I redid it to:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data &
_
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

And that didn't work either, so I tried just one long string:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" "Initial
Catalog=Assets; Integrated Security=SSPI")

or:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath & _
(~/App_Data/Lowes.mdb) & ";" "Initial Catalog=Assets; Integrated
Security=SSPI")

Then it doesn't allow the "~" symbol. I see your point about putting
Server.MapPath outside the rest of the code, but I tried these
variations and couldn't get the syntax to be accepted.

Any ideas of what I'm doing wrong? And I really do appreciate your
help for this newbie!
On Aug 8, 6:42 pm, Göran Andersson <[e-mail] mwrote:

No. You have put Server.MapPath inside the string. There it doesn't mean
anything at all. Concatenate the return value from the method into the
string:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

--
Göran Andersson
_____http://www.guffa.com

[=?ISO-8859-1?Q?G=F6ran_Andersson?=]

slinky wrote:

I tried this exact paste:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

That's only two lines, not three. I just edited the code that you posted.

I forgot the quotes around the string in the call to MapPath.

You really should read up a bit on the basic elements in the
programming, like strings and method calls. If you just copy and paste
code that you don't understand, you won't learn anything.

Code posted in newsgroups and articles often has small mistakes like
this, if you don't understand the code you can't fix those mistakes and
use the code.

--
Göran Andersson
_____
http://www.guffa.com

[Alexey Smirnov]

On Aug 10, 10:52 pm, Göran Andersson <[e-mail] mwrote:

slinky wrote:

I tried this exact paste:

New OleDbConnection ("Provider=Micr osoft.Jet.OLEDB .4.0;Data
Source=" & Server.MapPath( ~/App_Data/Lowes.mdb) & ";" & _
"Initial Catalog=Assets; Integrated Security=SSPI")

That's only two lines, not three. I just edited the code that you posted.

I forgot the quotes around the string in the call to MapPath.

You really should read up a bit on the basic elements in the
programming, like strings and method calls. If you just copy and paste
code that you don't understand, you won't learn anything.

Code posted in newsgroups and articles often has small mistakes like
this, if you don't understand the code you can't fix those mistakes and
use the code.

--
Göran Andersson
_____http://www.guffa.com

Agree with Göran.

http://groups.google.com/group/micro...fa4e582f3bc1e6