Click here to Skip to main content
12,406,687 members (56,604 online)
Rate this:
 
Please Sign up or sign in to vote.
See more: VB9.0 VB VB.NET
Hi to all.

I need some help........
i want to copy my 3 sql files in this 3 works field.

Thanks........

Private Sub Find_Machine_Customer()
    Dim Work_mst_roller_code As String = ""
    Dim con As OleDbConnection = New OleDbConnection(Main_Form.ConString)
    Dim cmd As OleDbCommand = New OleDbCommand("SELECT mst_roller_last_location, mst_roller_last_supp, mst_roller_type_pipe_id FROM Master_Roller WHERE Master_Roller.mst_roller_id = " & Parm_Roller_Roller, con)
    con.Open()
    work1
    work2
    work3
    con.Close()
    con = Nothing
End Sub
Posted 27-Dec-12 10:49am
Comments
richcb 27-Dec-12 16:58pm
   
That is not a question. Elaborate and specify a probelm you are having.
Sergey Alexandrovich Kryukov 27-Dec-12 17:23pm
   
I would also advise to compose a more specific title for your questions. You need right people to pay attention for your post, not the opposite. :-)
—SA
Aarti Meswania 27-Dec-12 23:43pm
   
do you mean by select record from sql and write in Excel worksheet?

1 solution

Rate this: bad
 
good
Please Sign up or sign in to vote.

Solution 1

try this

Private Sub Find_Machine_Customer()
        Dim Work_mst_roller_code As String = ""
        Dim con As OleDbConnection = New OleDbConnection(Main_Form.ConString)
	Dim dtbl_main As DataTable = New DataTable
        Dim cmd As OleDbCommand = New OleDbCommand("SELECT mst_roller_last_location, mst_roller_last_supp, mst_roller_type_pipe_id FROM Master_Roller WHERE Master_Roller.mst_roller_id = " & Parm_Roller_Roller, con)
        con.Open()
	Dim adapter1 As OleDbDataAdapter = New OleDbDataAdapter(cmd)
	adapter1.Fill(dtbl_main)
	
        work1 =  dtbl_main.Rows(0)(1).ToString
        work2 = dtbl_main.Rows(0)(2).ToString
        work3  = dtbl_main.Rows(0)(3).ToString
        con.Close()
        con = Nothing
    End Sub
  Permalink  

This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)

  Print Answers RSS
Top Experts
Last 24hrsThis month


Advertise | Privacy | Mobile
Web02 | 2.8.160730.1 | Last Updated 3 Jan 2013
Copyright © CodeProject, 1999-2016
All Rights Reserved. Terms of Service
Layout: fixed | fluid

CodeProject, 503-250 Ferrand Drive Toronto Ontario, M3C 3G8 Canada +1 416-849-8900 x 100