Database

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

pedestrian797 wrote:

I then try to create a binary(photo) file From the DataRow's Image column but fail

pedestrian797 wrote:

the photo file is to be showed in PictureBox

pedestrian797 wrote:

However my retrieved column is in DataRow.Column("Picture") format...

pedestrian797 wrote:

It also have Image property with is System.Drawing.Image type