473,289 Members | 1,959 Online
Bytes | Software Development & Data Engineering Community
Post Job

Home Posts Topics Members FAQ

Join Bytes to post your question to a community of 473,289 software developers and data experts.

Can I get the data using sql command???

What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?

Nov 20 '05 #1
5 2198
You should start learning ADO.NET, which is not just a quick reply to your
message.
"Gene" <eu*******@hotmail.com> wrote in message
news:uS**************@TK2MSFTNGP09.phx.gbl...
What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?

Nov 20 '05 #2
Use the ExecuteNonQuery method of the command object. This will return the
rows affected.

Regards - OHM

Gene wrote:
What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?

Nov 20 '05 #3
THX for the reply,
I know how to do it by changing the text of DataBindings at the property
window,
but I want to know how to do it by coding,
THX!

"One Handed Man" <Bo****@Duck.net> ¦b¶l¥ó
news:bq**********@hercules.btinternet.com ¤¤¼¶¼g...
Use the ExecuteNonQuery method of the command object. This will return the
rows affected.

Regards - OHM

Gene wrote:
What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?


Nov 20 '05 #4
You have not been particularly specific about what you are trying to acheive

here is an example from one of my applications which uses an access
database:-

Dim cmd As New OleDbCommand

Dim uCmd As New OleDbCommand

' set connection string

con.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet
OLEDB:Registry Path=;Jet OLEDB:Database L" & _

"ocking Mode=1;Data Source=""C:\Documents and Settings\Administrator\My
Documents\" & _

"FamilyPlusFriends.mdb"";Jet OLEDB:Engine
Type=5;Provider=""Microsoft.Jet.OLEDB.4.0" & _

""";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security
info=False;Ext" & _

"ended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet
OLED" & _

"B:Create System Database=False;Jet OLEDB:Don't Copy Locale on
Compact=False;Jet " & _

"OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global
Bulk T" & _

"ransactions=1"

daEvents.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "Events", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Action", "Action"), New
System.Data.Common.DataColumnMapping("Comments", "Comments"), New
System.Data.Common.DataColumnMapping("Date", "Date"), New
System.Data.Common.DataColumnMapping("EventType", "EventType"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("PersonIndex" , "PersonIndex")})})

daPeople.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "People", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("Address2", "Address2"), New
System.Data.Common.DataColumnMapping("Address3", "Address3"), New
System.Data.Common.DataColumnMapping("Address4", "Address4"), New
System.Data.Common.DataColumnMapping("Country", "Country"), New
System.Data.Common.DataColumnMapping("County", "County"), New
System.Data.Common.DataColumnMapping("DOB", "DOB"), New
System.Data.Common.DataColumnMapping("Email", "Email"), New
System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New
System.Data.Common.DataColumnMapping("Home Phone", "Home Phone"), New
System.Data.Common.DataColumnMapping("LastName", "LastName"), New
System.Data.Common.DataColumnMapping("MiddleInniti al", "MiddleInnitial"),
New System.Data.Common.DataColumnMapping("Mobile Fone", "Mobile Fone"), New
System.Data.Common.DataColumnMapping("Post Code", "Post Code"), New
System.Data.Common.DataColumnMapping("Town", "Town"), New
System.Data.Common.DataColumnMapping("ID", "ID")})})

'open connection

con.Open()

'Initialise People

SetPrimaryKeys()

dgPeople.DataSource = tablePeople

peopleSelectCmd.CommandText = "SELECT ID,FirstName,LastName,DOB,[Mobile
Fone],[Home Phone],Email, Address1, Address2,Address3, Address4,Town, [Post
Code], County, Country,MiddleInnitial FROM(People)ORDER BY FirstName"

peopleSelectCmd.CommandType = CommandType.Text

peopleSelectCmd.Connection = con

daPeople.SelectCommand = peopleSelectCmd

daPeople.Fill(tablePeople)

'Set up the People insert command

peopleInsertCmd.CommandType = CommandType.Text

peopleInsertCmd.CommandText = "INSERT INTO [People]([Address1], [Address2],
[Address3], [Address4], [Country], [County], [DOB], " & _

"[email], [FirstName], [Home Phone], [LastName], [MiddleInnitial], [Mobile
Fone], [Post Code]," & _

"[Town]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

peopleInsertCmd.Connection = con

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address4"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB",
System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email",
System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Home Phone"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MiddleInnitial",
System.Data.OleDb.OleDbType.VarWChar, 3, "MiddleInnitial"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mobile_Fone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Mobile Fone"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Post_Code",
System.Data.OleDb.OleDbType.VarWChar, 10, "Post Code"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Town",
System.Data.OleDb.OleDbType.VarWChar, 50, "Town"))

'

daPeople.InsertCommand = peopleInsertCmd

'setup People Update Command

peopleUpdateCmd.CommandText = "UPDATE People SET Address1 = ?, Address2 = ?,
Address3 = ?, Address4 = ?, Country" & _

" = ?, County = ?, DOB = ?, Email = ?, FirstName = ?, [Home Phone] = ?,
LastName " & _

"= ?, MiddleInnitial = ?, [Mobile Fone] = ?, [Post Code] = ?, Town = ? WHERE
(ID " & _

"= ?) AND (Address1 = ?) AND (Address2 = ?) AND (Address3 = ?) AND (Address4
= ?)" & _

" AND (Country = ?) AND (County = ?) AND (DOB = ?) AND (Email = ? OR ? IS
NULL AN" & _

"D Email IS NULL) AND (FirstName = ?) AND ([Home Phone] = ?) AND (LastName =
?) A" & _

"ND (MiddleInnitial = ? OR ? IS NULL AND MiddleInnitial IS NULL) AND
([Mobile Fon" & _

"e] = ? OR ? IS NULL AND [Mobile Fone] IS NULL) AND ([Post Code] = ?) AND
(Town =" & _

" ?)"

peopleUpdateCmd.Connection = con

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address4"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB",
System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email",
System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Home Phone"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MiddleInnitial",
System.Data.OleDb.OleDbType.VarWChar, 3, "MiddleInnitial"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mobile_Fone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Mobile Fone"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Post_Code",
System.Data.OleDb.OleDbType.VarWChar, 10, "Post Code"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Town",
System.Data.OleDb.OleDbType.VarWChar, 50, "Town"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address1", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 2",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address2", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 3",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address3", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 4",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address4", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country ",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byt),
"County", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DOB",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DOB",
System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Email", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Email", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"FirstName", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Ph one",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Home Phone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"LastName", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial1",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Post_Co de",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Post Code", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Town",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Town", System.Data.DataRowVersion.Original, Nothing))

daPeople.UpdateCommand = peopleUpdateCmd



'Setup People Delete Command

peopleDeleteCmd.CommandText = "DELETE FROM People WHERE ([ID] = ?) AND
(Address1 = ?) AND (Address2 = ?) AND (Addr" & _

"ess3 = ?) AND (Address4 = ?) AND (Country = ?) AND (County = ?) AND (DOB =
?) AN" & _

"D (Email = ? OR ? IS NULL AND Email IS NULL) AND (FirstName = ?) AND ([Home
Phon" & _

"e] = ?) AND (LastName = ?) AND (MiddleInnitial = ? OR ? IS NULL AND
MiddleInniti" & _

"al IS NULL) AND ([Mobile Fone] = ? OR ? IS NULL AND [Mobile Fone] IS NULL)
AND (" & _

"[Post Code] = ?) AND (Town = ?)"

peopleDeleteCmd.Connection = con

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"ID", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address1", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 2",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address2", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 3",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address3", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 4",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Address4", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country ",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Country", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"County", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DOB",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input,
False, CType(0, Byte), CType(0, Byte), "DOB",
System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Email", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Email", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"FirstName", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Ph one",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Home Phone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"LastName", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial1",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Post_Co de",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Post Code", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Town",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte),
"Town", System.Data.DataRowVersion.Original, Nothing))

'

daPeople.DeleteCommand = peopleDeleteCmd

'Initialise Events

Try

tableEvents.Clear()

dgEvents.DataSource = tableEvents

eventsSelectCmd.CommandType = CommandType.Text

eventsSelectCmd.CommandText = "SELECT
[PersonIndex],[EventType],[Date],[Comments],[Action],[ID] FROM ([Events])
WHERE PersonIndex=? "

eventsSelectCmd.Connection = con

eventsSelectCmd.Parameters.Add("@ID",
dgPeople.Item(dgPeople.CurrentRowIndex, 0))

daEvents.SelectCommand = eventsSelectCmd

daEvents.Fill(tableEvents)

Catch ex As OleDbException

MessageBox.Show(ex.Message)

Catch ex As ArgumentException

MessageBox.Show(ex.tostring)

End Try


Gene wrote:
THX for the reply,
I know how to do it by changing the text of DataBindings at the
property window,
but I want to know how to do it by coding,
THX!

"One Handed Man" <Bo****@Duck.net> ¦b¶l¥ó
news:bq**********@hercules.btinternet.com ¤¤¼¶¼g...
Use the ExecuteNonQuery method of the command object. This will
return the rows affected.

Regards - OHM

Gene wrote:
What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?

Nov 20 '05 #5
THX for your help

"One Handed Man" <Bo****@Duck.net> ¦b¶l¥ó
news:bq**********@hercules.btinternet.com ¤¤¼¶¼g...
You have not been particularly specific about what you are trying to acheive
here is an example from one of my applications which uses an access
database:-

Dim cmd As New OleDbCommand

Dim uCmd As New OleDbCommand

' set connection string

con.ConnectionString = "Jet OLEDB:Global Partial Bulk Ops=2;Jet
OLEDB:Registry Path=;Jet OLEDB:Database L" & _

"ocking Mode=1;Data Source=""C:\Documents and Settings\Administrator\My
Documents\" & _

"FamilyPlusFriends.mdb"";Jet OLEDB:Engine
Type=5;Provider=""Microsoft.Jet.OLEDB.4.0" & _

""";Jet OLEDB:System database=;Jet OLEDB:SFP=False;persist security
info=False;Ext" & _

"ended Properties=;Mode=Share Deny None;Jet OLEDB:Encrypt Database=False;Jet OLED" & _

"B:Create System Database=False;Jet OLEDB:Don't Copy Locale on
Compact=False;Jet " & _

"OLEDB:Compact Without Replica Repair=False;User ID=Admin;Jet OLEDB:Global
Bulk T" & _

"ransactions=1"

daEvents.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "Events", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Action", "Action"), New
System.Data.Common.DataColumnMapping("Comments", "Comments"), New
System.Data.Common.DataColumnMapping("Date", "Date"), New
System.Data.Common.DataColumnMapping("EventType", "EventType"), New
System.Data.Common.DataColumnMapping("ID", "ID"), New
System.Data.Common.DataColumnMapping("PersonIndex" , "PersonIndex")})})

daPeople.TableMappings.AddRange(New System.Data.Common.DataTableMapping()
{New System.Data.Common.DataTableMapping("Table", "People", New
System.Data.Common.DataColumnMapping() {New
System.Data.Common.DataColumnMapping("Address1", "Address1"), New
System.Data.Common.DataColumnMapping("Address2", "Address2"), New
System.Data.Common.DataColumnMapping("Address3", "Address3"), New
System.Data.Common.DataColumnMapping("Address4", "Address4"), New
System.Data.Common.DataColumnMapping("Country", "Country"), New
System.Data.Common.DataColumnMapping("County", "County"), New
System.Data.Common.DataColumnMapping("DOB", "DOB"), New
System.Data.Common.DataColumnMapping("Email", "Email"), New
System.Data.Common.DataColumnMapping("FirstName", "FirstName"), New
System.Data.Common.DataColumnMapping("Home Phone", "Home Phone"), New
System.Data.Common.DataColumnMapping("LastName", "LastName"), New
System.Data.Common.DataColumnMapping("MiddleInniti al", "MiddleInnitial"),
New System.Data.Common.DataColumnMapping("Mobile Fone", "Mobile Fone"), New System.Data.Common.DataColumnMapping("Post Code", "Post Code"), New
System.Data.Common.DataColumnMapping("Town", "Town"), New
System.Data.Common.DataColumnMapping("ID", "ID")})})

'open connection

con.Open()

'Initialise People

SetPrimaryKeys()

dgPeople.DataSource = tablePeople

peopleSelectCmd.CommandText = "SELECT ID,FirstName,LastName,DOB,[Mobile
Fone],[Home Phone],Email, Address1, Address2,Address3, Address4,Town, [Post Code], County, Country,MiddleInnitial FROM(People)ORDER BY FirstName"

peopleSelectCmd.CommandType = CommandType.Text

peopleSelectCmd.Connection = con

daPeople.SelectCommand = peopleSelectCmd

daPeople.Fill(tablePeople)

'Set up the People insert command

peopleInsertCmd.CommandType = CommandType.Text

peopleInsertCmd.CommandText = "INSERT INTO [People]([Address1], [Address2], [Address3], [Address4], [Country], [County], [DOB], " & _

"[email], [FirstName], [Home Phone], [LastName], [MiddleInnitial], [Mobile
Fone], [Post Code]," & _

"[Town]) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"

peopleInsertCmd.Connection = con

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address4"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB",
System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Home Phone"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MiddleInnitial",
System.Data.OleDb.OleDbType.VarWChar, 3, "MiddleInnitial"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mobile_Fone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Mobile Fone"))

peopleInsertCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Post_Code",
System.Data.OleDb.OleDbType.VarWChar, 10, "Post Code"))

peopleInsertCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Town", System.Data.OleDb.OleDbType.VarWChar, 50, "Town"))

'

daPeople.InsertCommand = peopleInsertCmd

'setup People Update Command

peopleUpdateCmd.CommandText = "UPDATE People SET Address1 = ?, Address2 = ?, Address3 = ?, Address4 = ?, Country" & _

" = ?, County = ?, DOB = ?, Email = ?, FirstName = ?, [Home Phone] = ?,
LastName " & _

"= ?, MiddleInnitial = ?, [Mobile Fone] = ?, [Post Code] = ?, Town = ? WHERE (ID " & _

"= ?) AND (Address1 = ?) AND (Address2 = ?) AND (Address3 = ?) AND (Address4 = ?)" & _

" AND (Country = ?) AND (County = ?) AND (DOB = ?) AND (Email = ? OR ? IS
NULL AN" & _

"D Email IS NULL) AND (FirstName = ?) AND ([Home Phone] = ?) AND (LastName = ?) A" & _

"ND (MiddleInnitial = ? OR ? IS NULL AND MiddleInnitial IS NULL) AND
([Mobile Fon" & _

"e] = ? OR ? IS NULL AND [Mobile Fone] IS NULL) AND ([Post Code] = ?) AND
(Town =" & _

" ?)"

peopleUpdateCmd.Connection = con

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address1",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address1"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address2",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address2"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address3",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address3"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Address4",
System.Data.OleDb.OleDbType.VarWChar, 50, "Address4"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Country",
System.Data.OleDb.OleDbType.VarWChar, 50, "Country"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("County",
System.Data.OleDb.OleDbType.VarWChar, 50, "County"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("DOB",
System.Data.OleDb.OleDbType.DBDate, 0, "DOB"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Email", System.Data.OleDb.OleDbType.VarWChar, 50, "Email"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("FirstName",
System.Data.OleDb.OleDbType.VarWChar, 20, "FirstName"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Home_Phone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Home Phone"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("LastName",
System.Data.OleDb.OleDbType.VarWChar, 20, "LastName"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("MiddleInnitial",
System.Data.OleDb.OleDbType.VarWChar, 3, "MiddleInnitial"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Mobile_Fone",
System.Data.OleDb.OleDbType.VarWChar, 50, "Mobile Fone"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Post_Code",
System.Data.OleDb.OleDbType.VarWChar, 10, "Post Code"))

peopleUpdateCmd.Parameters.Add(New System.Data.OleDb.OleDbParameter("Town", System.Data.OleDb.OleDbType.VarWChar, 50, "Town"))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 2",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 3",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 4",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country ",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirectin.Input, False, CType(0, Byte), CType(0, Byte), "County", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DOB",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB",
System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FirstName", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Ph one",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Home Phone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LastName", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial1",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Post_Co de",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Post Code", System.Data.DataRowVersion.Original, Nothing))

peopleUpdateCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Town",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Town", System.Data.DataRowVersion.Original, Nothing))

daPeople.UpdateCommand = peopleUpdateCmd



'Setup People Delete Command

peopleDeleteCmd.CommandText = "DELETE FROM People WHERE ([ID] = ?) AND
(Address1 = ?) AND (Address2 = ?) AND (Addr" & _

"ess3 = ?) AND (Address4 = ?) AND (Country = ?) AND (County = ?) AND (DOB = ?) AN" & _

"D (Email = ? OR ? IS NULL AND Email IS NULL) AND (FirstName = ?) AND ([Home Phon" & _

"e] = ?) AND (LastName = ?) AND (MiddleInnitial = ? OR ? IS NULL AND
MiddleInniti" & _

"al IS NULL) AND ([Mobile Fone] = ? OR ? IS NULL AND [Mobile Fone] IS NULL) AND (" & _

"[Post Code] = ?) AND (Town = ?)"

peopleDeleteCmd.Connection = con

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_ID",
System.Data.OleDb.OleDbType.Integer, 0,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "ID", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address1", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 2",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address2", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 3",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address3", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Address 4",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Address4", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Country ",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Country", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_County" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "County", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_DOB",
System.Data.OleDb.OleDbType.DBDate, 0, System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "DOB",
System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Email1" ,
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Email", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_FirstNa me",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "FirstName", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Home_Ph one",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Home Phone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_LastNam e",
System.Data.OleDb.OleDbType.VarWChar, 20,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "LastName", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_MiddleI nnitial1",
System.Data.OleDb.OleDbType.VarWChar, 3,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "MiddleInnitial", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Mobile_ Fone1",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Mobile Fone", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Post_Co de",
System.Data.OleDb.OleDbType.VarWChar, 10,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Post Code", System.Data.DataRowVersion.Original, Nothing))

peopleDeleteCmd.Parameters.Add(New
System.Data.OleDb.OleDbParameter("Original_Town",
System.Data.OleDb.OleDbType.VarWChar, 50,
System.Data.ParameterDirection.Input, False, CType(0, Byte), CType(0, Byte), "Town", System.Data.DataRowVersion.Original, Nothing))

'

daPeople.DeleteCommand = peopleDeleteCmd

'Initialise Events

Try

tableEvents.Clear()

dgEvents.DataSource = tableEvents

eventsSelectCmd.CommandType = CommandType.Text

eventsSelectCmd.CommandText = "SELECT
[PersonIndex],[EventType],[Date],[Comments],[Action],[ID] FROM ([Events])
WHERE PersonIndex=? "

eventsSelectCmd.Connection = con

eventsSelectCmd.Parameters.Add("@ID",
dgPeople.Item(dgPeople.CurrentRowIndex, 0))

daEvents.SelectCommand = eventsSelectCmd

daEvents.Fill(tableEvents)

Catch ex As OleDbException

MessageBox.Show(ex.Message)

Catch ex As ArgumentException

MessageBox.Show(ex.tostring)

End Try


Gene wrote:
THX for the reply,
I know how to do it by changing the text of DataBindings at the
property window,
but I want to know how to do it by coding,
THX!

"One Handed Man" <Bo****@Duck.net> ¦b¶l¥ó
news:bq**********@hercules.btinternet.com ¤¤¼¶¼g...
Use the ExecuteNonQuery method of the command object. This will
return the rows affected.

Regards - OHM

Gene wrote:
What can I do if I want to get the result using the sql command?
for example,
the select command is "select Name from Employee where StaffID=10"
How to get the "Name"???
dim Name as string
and then.....
what should I do?


Nov 20 '05 #6

This thread has been closed and replies have been disabled. Please start a new discussion.

Similar topics

0
by: Donald Tyler | last post by:
Then the only way you can do it that I can think of is to write a PHP script to do basically what PHPMyAdmin is trying to do but without the LOCAL in there. However to do that you would need to...
1
by: Andrew Arace | last post by:
I scoured the groups for some hands on code to perform the menial task of exporting table data from an Access 2000 database to Oracle database (in this case, it was oracle 8i but i'm assuming this...
3
by: markaelkins | last post by:
I want to create a simple user interface to collect the following data and store the data in a SQL database…. Could someone please help me get started? Data to collect from user interface and...
1
by: T8 | last post by:
I have a asp.net (framework 1.1) site interfacing against SQL 2000. It runs like a charm 99% of the time but once in a while I get the following "unspecified error". Sometimes it would resolve by...
8
by: rriness | last post by:
I'm getting an inconsistent failure when trying to save data in ADO.Net. I'm using an Access database with a simple query - SELECT StudentID, FirstName, LastName FROM Students - and have no...
3
by: nsh | last post by:
mailing.database.mysql, comp.lang.php subject: does "LOAD DATA" EVER work?!? I've tried EVERYTHING! version info: my isp is running my web page on a linux box with php ver. 4.4.1 according to...
9
by: Alex Buell | last post by:
I have a small text file which consist of the following data: ]] And the code I've written is as follows: ]] The trouble is, I can't work out why it goes into an infinite loop reading the...
6
Cintury
by: Cintury | last post by:
Hi all, I've developed a mobile application for windows mobile 5.0 that has been in use for a while (1 year and a couple of months). It was developed in visual studios 2005 with a back-end sql...
7
by: RB0135 | last post by:
Hi All, I have some Windows BMP, 1BPP, monochrome files that I need to get the raw data from to load a graphics buffer on a Roll Printer (which I know can be done). Lets forget about the Roll...
2
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 7 Feb 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:30 (7.30PM). In this month's session, the creator of the excellent VBE...
0
by: DolphinDB | last post by:
The formulas of 101 quantitative trading alphas used by WorldQuant were presented in the paper 101 Formulaic Alphas. However, some formulas are complex, leading to challenges in calculation. Take...
0
by: Aftab Ahmad | last post by:
Hello Experts! I have written a code in MS Access for a cmd called "WhatsApp Message" to open WhatsApp using that very code but the problem is that it gives a popup message everytime I clicked on...
0
by: Aftab Ahmad | last post by:
So, I have written a code for a cmd called "Send WhatsApp Message" to open and send WhatsApp messaage. The code is given below. Dim IE As Object Set IE =...
0
by: ryjfgjl | last post by:
ExcelToDatabase: batch import excel into database automatically...
0
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
1
isladogs
by: isladogs | last post by:
The next Access Europe meeting will be on Wednesday 6 Mar 2024 starting at 18:00 UK time (6PM UTC) and finishing at about 19:15 (7.15PM). In this month's session, we are pleased to welcome back...
0
by: ArrayDB | last post by:
The error message I've encountered is; ERROR:root:Error generating model response: exception: access violation writing 0x0000000000005140, which seems to be indicative of an access violation...
1
by: PapaRatzi | last post by:
Hello, I am teaching myself MS Access forms design and Visual Basic. I've created a table to capture a list of Top 30 singles and forms to capture new entries. The final step is a form (unbound)...

By using Bytes.com and it's services, you agree to our Privacy Policy and Terms of Use.

To disable or enable advertisements and analytics tracking please visit the manage ads & tracking page.