TECHNOLOGIES
FORUMS
JOBS
BOOKS
EVENTS
INTERVIEWS
Live
MORE
LEARN
Training
CAREER
MEMBERS
VIDEOS
NEWS
BLOGS
Sign Up
Login
No unread comment.
View All Comments
No unread message.
View All Messages
No unread notification.
View All Notifications
Answers
Post
An Article
A Blog
A News
A Video
An EBook
An Interview Question
Ask Question
Forums
Monthly Leaders
Forum guidelines
bernard
NA
1
0
How can I save unbound datagridview1 to my new table database?
Mar 30 2010 5:11 AM
Can anyone help me please.. I create a program that make query date range on database after that it shows to
datagridview1 this work fine, but when the result I want to save to a database table I created on ms-access
I don't know how to do it.
here is my code.
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim cmd As OleDbCommand = New OleDbCommand
With cmd
.CommandText = "SELECT [Item Code], [Descriptions], [Reference], [Date]," & _
"[Quantity], [Status] FROM StockTranstbl WHERE ([Date]) >= #" & _
DateValue(DateTimePicker1.Value) & _
"# AND ([Date]) <= #" & DateValue(DateTimePicker2.Value) & "#"
.CommandType = CommandType.Text
.Connection = dbConn
End With
'dtIn.Clear()
adap = New OleDbDataAdapter(cmd)
adap.Fill(dtIn)
DataGridView1.DataSource = dtIn
Dim dgr1 As DataGridViewRow
For Each dgr1 In DataGridView1.Rows
cmd.CommandText = "INSERT INTO StockQueryDatetbl([Item Code],[Descriptions],[Reference], [Date]," & _
"[Quantity], [Status]) VALUES(@a,@b,@c,@d,@e,@f)"
cmd.CommandType = CommandType.Text
cmd.Connection = dbConn
cmd.Parameters.Add("@a", OleDbType.VarChar).Value = dtIn.Columns.Contains("[Item Code]")
cmd.Parameters.Add("@b", OleDbType.VarChar).Value = dtIn.Columns.Contains("[Descriptions]")
cmd.Parameters.Add("@c", OleDbType.VarChar).Value = dtIn.Columns.Contains("[Reference]")
cmd.Parameters.Add("@d", OleDbType.Date).Value = dtIn.Columns.Contains("[Date]")
cmd.Parameters.Add("@e", OleDbType.Integer).Value = dtIn.Columns.Contains("[Quantity]")
cmd.Parameters.Add("@f", OleDbType.VarChar).Value = dtIn.Columns.Contains("[Status]")
cmd.ExecuteNonQuery()
Next
MsgBox("save sucessfully")
End Sub
Your help is highly appreciated..
Thank you.
Reply
Answers (
0
)
code for showing image from sql server 2005 data base into dot net 2008 image control
REPORTVIEW