command object vb2005 ado

[Rob]

hi all,

i'am working on a database based on VB2005 using ado.
iv a combobox on mine form, which i fill with a datareader and command. If
i've new data in my cbo.text and textfield , i want this to save the new
values into mine accesstable.

i have already a connection to mine db to fill the cbo with value.
ive tried with as followed:
'******************
dim newsql as string
'vrTxtfield1 and vrcbotext are two variabels which containes the new data i
need to store.
newsql = "INSERT INTO tbltest(field1, field2)VALUES (" & vrTxtfield1 & "," &
vrcbotext & ")"
Dim cmmdsql As New OleDb.OleDbCommand(newsql , cn)
cmmdsql.ExecuteNonQuery()
'**************
Which command do i need to achieve this ?

regards, Rob

[Cor Ligthert[MVP]]

Rob,

I do this in this message so be aware of errors.

\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new data i
need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES (@Param1,
@Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///

I cannot see what database you use, as that is a version of SQL server then
you can use better SQLClient instead of OleDB, in a real version you should
also add error trapping by a try catch block.
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools

Succes

Cor

[Rob]

hi Cord
The database is an access database.

I give it a try in the newgroup you propose.
If you get the answer anyway, don't hasitate to replay.
Kindley regards, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:E6**********************************@microsof t.com...

Rob,

I do this in this message so be aware of errors.

\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new data
i need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES
(@Param1, @Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///

I cannot see what database you use, as that is a version of SQL server
then you can use better SQLClient instead of OleDB, in a real version you
should also add error trapping by a try catch block.
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools

Succes

Cor

[Cor Ligthert[MVP]]

Hi Rob,

Did you look at the code I made?

:-)

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uQ**************@TK2MSFTNGP02.phx.gbl...

hi Cord
The database is an access database.

I give it a try in the newgroup you propose.
If you get the answer anyway, don't hasitate to replay.
Kindley regards, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:E6**********************************@microsof t.com...

>Rob,

I do this in this message so be aware of errors.

\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new data
i need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES
(@Param1, @Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///

I cannot see what database you use, as that is a version of SQL server
then you can use better SQLClient instead of OleDB, in a real version you
should also add error trapping by a try catch block.
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools

Succes

Cor

[Rob]

hi again,
yes , of course id , but he struggles
'---cmdSql.Parameters.Add("field1", vrTxtfield1)
cmdSql.Parameters.Add("field2", vrcbotext )

sqlPCGem.ExecuteNonQuery()

I cannot get to put the parameter after the cmdSql. i can't see the
parameteroption in the list who's available fo the sqlcmd. and in the
errorsection is written that parameter is not a member of the string.

Also i get error on the last line said he is not a member of a string.

regards, rob

"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:5E**********************************@microsof t.com...

Hi Rob,

Did you look at the code I made?

:-)

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uQ**************@TK2MSFTNGP02.phx.gbl...

>hi Cord
The database is an access database.

I give it a try in the newgroup you propose.
If you get the answer anyway, don't hasitate to replay.
Kindley regards, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:E6**********************************@microso ft.com...

>>Rob,

I do this in this message so be aware of errors.

\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new
data i need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES
(@Param1, @Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///

I cannot see what database you use, as that is a version of SQL server
then you can use better SQLClient instead of OleDB, in a real version
you should also add error trapping by a try catch block.
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools

Succes

Cor

[Cor Ligthert[MVP]]

Hi Rob,

Sorry, I wrote it in this message, the adding of a parameter should be

\\\

cmdSql.Parameters.Add(New OleDb.OleDbParameter("@Param1", "vrTxtfield1"))

///

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uc****************@TK2MSFTNGP04.phx.gbl...

hi again,
yes , of course id , but he struggles
'---cmdSql.Parameters.Add("field1", vrTxtfield1)
cmdSql.Parameters.Add("field2", vrcbotext )

sqlPCGem.ExecuteNonQuery()

I cannot get to put the parameter after the cmdSql. i can't see the
parameteroption in the list who's available fo the sqlcmd. and in the
errorsection is written that parameter is not a member of the string.

Also i get error on the last line said he is not a member of a string.

regards, rob

"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:5E**********************************@microsof t.com...

>Hi Rob,

Did you look at the code I made?

:-)

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uQ**************@TK2MSFTNGP02.phx.gbl...

>>hi Cord
The database is an access database.

I give it a try in the newgroup you propose.
If you get the answer anyway, don't hasitate to replay.
Kindley regards, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:E6**********************************@micros oft.com...
Rob,

I do this in this message so be aware of errors.

\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new
data i need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES
(@Param1, @Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///

I cannot see what database you use, as that is a version of SQL server
then you can use better SQLClient instead of OleDB, in a real version
you should also add error trapping by a try catch block.
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools

Succes

Cor

[Rob]

Hi Cor,

Finaly , it works great
Many Thanks for yor help, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:B2**********************************@microsof t.com...

Hi Rob,

Sorry, I wrote it in this message, the adding of a parameter should be

\\\

cmdSql.Parameters.Add(New OleDb.OleDbParameter("@Param1", "vrTxtfield1"))

///

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uc****************@TK2MSFTNGP04.phx.gbl...

>hi again,
yes , of course id , but he struggles
'---cmdSql.Parameters.Add("field1", vrTxtfield1)
cmdSql.Parameters.Add("field2", vrcbotext )

sqlPCGem.ExecuteNonQuery()

I cannot get to put the parameter after the cmdSql. i can't see the
parameteroption in the list who's available fo the sqlcmd. and in the
errorsection is written that parameter is not a member of the string.

Also i get error on the last line said he is not a member of a string.

regards, rob

"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:5E**********************************@microso ft.com...

>>Hi Rob,

Did you look at the code I made?

:-)

Cor

"Rob" <RO*@sdmlfk.nlschreef in bericht
news:uQ**************@TK2MSFTNGP02.phx.gbl...
hi Cord
The database is an access database.

I give it a try in the newgroup you propose.
If you get the answer anyway, don't hasitate to replay.
Kindley regards, Rob
"Cor Ligthert[MVP]" <no************@planet.nlschreef in bericht
news:E6**********************************@micro soft.com...
Rob,
>
I do this in this message so be aware of errors.
>
\\\
'vrTxtfield1 and vrcbotext are two variabels which containes the new
data i need to store.
dim newsql as string = "INSERT INTO tbltest(field1, field2)VALUES
(@Param1, @Param2)"
Dim cmdsql As New OleDb.OleDbCommand(newsql , cn)
cmdSql.Parameters.Add("@Param1",vrTxtfield1)
cmdSql.Parameters.Add("@Param2",vrcbotext )
cn.Open
cmmdsql.ExecuteNonQuery()
cn.Close
///
>
I cannot see what database you use, as that is a version of SQL server
then you can use better SQLClient instead of OleDB, in a real version
you should also add error trapping by a try catch block.
>
>
Better newsgroups for you are probably
microsoft.public.dotnet.Framework.Adonet
microsoft.public.dotnet.languages.vb
or maybe the very inactive newsgroup
microsoft.public.nl.devtools
>
Succes
>
Cor