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

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

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]" <notmyfirstname@xxxxxx> schreef in bericht
news:E6C2060A-F7E0-4893-ACF3-986FC0651A7C@xxxxxx

> 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

Hi Rob,

Did you look at the code I made?

:-)

Cor

"Rob" <ROb@xxxxxx> schreef in bericht
news:uQRneycrIHA.5068@xxxxxx

> 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]" <notmyfirstname@xxxxxx> schreef in bericht
> news:E6C2060A-F7E0-4893-ACF3-986FC0651A7C@xxxxxx

>> 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

>
>

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]" <notmyfirstname@xxxxxx> schreef in bericht
news:5E8F3612-5C8E-4CFD-85FF-C01FC0065399@xxxxxx

> Hi Rob,
>
> Did you look at the code I made?
>
> :-)
>
> Cor
>
> "Rob" <ROb@xxxxxx> schreef in bericht
> news:uQRneycrIHA.5068@xxxxxx

>> 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]" <notmyfirstname@xxxxxx> schreef in bericht
>> news:E6C2060A-F7E0-4893-ACF3-986FC0651A7C@xxxxxx

>>> 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

>>
>>

>

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" <ROb@xxxxxx> schreef in bericht
news:ucTg%23QjrIHA.4544@xxxxxx

> 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]" <notmyfirstname@xxxxxx> schreef in bericht
> news:5E8F3612-5C8E-4CFD-85FF-C01FC0065399@xxxxxx

>> Hi Rob,
>>
>> Did you look at the code I made?
>>
>> :-)
>>
>> Cor
>>
>> "Rob" <ROb@xxxxxx> schreef in bericht
>> news:uQRneycrIHA.5068@xxxxxx

>>> 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]" <notmyfirstname@xxxxxx> schreef in bericht
>>> news:E6C2060A-F7E0-4893-ACF3-986FC0651A7C@xxxxxx
>>>> 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
>>>
>>>

>>

>
>

Hi Cor,

Finaly , it works great
Many Thanks for yor help, Rob
"Cor Ligthert[MVP]" <notmyfirstname@xxxxxx> schreef in bericht
news:B248C6FF-2486-45D3-B61D-601D98843D6F@xxxxxx

> 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" <ROb@xxxxxx> schreef in bericht
> news:ucTg%23QjrIHA.4544@xxxxxx

>> 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]" <notmyfirstname@xxxxxx> schreef in bericht
>> news:5E8F3612-5C8E-4CFD-85FF-C01FC0065399@xxxxxx

>>> Hi Rob,
>>>
>>> Did you look at the code I made?
>>>
>>> :-)
>>>
>>> Cor
>>>
>>> "Rob" <ROb@xxxxxx> schreef in bericht
>>> news:uQRneycrIHA.5068@xxxxxx
>>>> 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]" <notmyfirstname@xxxxxx> schreef in bericht
>>>> news:E6C2060A-F7E0-4893-ACF3-986FC0651A7C@xxxxxx
>>>>> 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
>>>>
>>>>
>>>

>>
>>

>