Database

CREATE TABLE StationData (StnID INT NOT NULL <code>IDENTITY </code>, Name CHAR(50), Province CHAR(20), Latitude FLOAT, Longitude FLOAT);

CREATE PROCEDURE [procedureName]

CREATE PROCEDURE copyData<br />
 @selectID int <br />
<br />
 AS <br />
<br />
SELECT  ID, Name <br />
INTO newTable<br />
FROM origTable <br />
WHERE origTable.ID = @selectID

Sincerely,
Elina

Life is great!!!
Enjoy every moment of it!

Imports System.Data.OleDb
...
Dim cnn As New OleDbConnection("Provider=VFPOLEDB.1;Data Source=D:\Temp\MyTable.dbf;")
cnn.Open()

Dim con As New OleDbConnection
Dim da As New OleDbDataAdapter
Dim ds As New DataSet
con = New OleDbConnection("Provider=VFPOLEDB.1;Data Source=c:\table1.dbf;")
con.Open()

da = New OleDbDataAdapter("select * from table1.dbf", con)
da.Fill(ds)

CREATE PROCEDURE AddListing
@Name varchar(150),@Description varchar(1000),@Keywords varchar(50),
@Address varchar(200),@Telephone varchar(50),@Fax varchar(50),
@Mobile varchar(50),@Email varchar(50),@URL varchar(50),
@Aproved bit,@Premium bit,@UserID int,@nextID int Output --<the output
AS

SET NOCOUNT ON

INSERT INTO listings (l_name, l_desc, l_keywords, l_address, l_tel, l_fax, 
l_mob, l_email, l_url, l_premium, l_approved)
VALUES @Name,@Description,@Keywords,@Address,@Telephone,@Fax,@Mobile,@Email,
@URL,@Premium,@Aproved)

<code>SET @nextID = SCOPE_IDENTITY()</code>

INSERT INTO usr_ls_line (usr_id, l_id)
VALUES (@UserID,@nextID)

return @nextID

Imports System.Data
Imports System.Data.SqlClient

...
Dim conn As New SqlConnection
conn.ConnectionString = "Data Source=(local);" & _
    "Initial Catalog=mytestdb;" & _
    "Integrated Security=SSPI"

Dim cmd As New SqlCommand
cmd.Connection = conn
cmd.CommandType = CommandType.StoredProcedure
cmd.CommandText = "AddListing"

Dim prm1 As New SqlParameter("@Name", SqlDbType.VarChar, 150)
prm1.Direction = ParameterDirection.Input
cmd.Parameters.Add(prm1)
prm1.Value = "MyStaffName"

Dim prm2 As New SqlParameter("@Description", SqlDbType.VarChar, 1000)
prm2.Direction = ParameterDirection.Input
cmd.Parameters.Add(prm2)
prm2.Value = "Whatever"

'...

<code>Dim prm5 As New SqlParameter("@nextID", SqlDbType.Int)
prm5.Direction = ParameterDirection.Output
cmd.Parameters.Add(prm5)</code>

conn.Open()
cmd.ExecuteNonQuery()
conn.Close()

MsgBox(<code>"Returned ID=" + prm5.Value</code>)

Mark Nischalke wrote:

you can't make such a blanket statement that not using it is bad practice