Click here to Skip to main content
11,493,948 members (70,984 online)
Rate this: bad
good
Please Sign up or sign in to vote.
See more: VB9.0 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 11:49am
Comments
richcb at 27-Dec-12 16:58pm
   
That is not a question. Elaborate and specify a probelm you are having.
Sergey Alexandrovich Kryukov at 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 at 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
0 Sergey Alexandrovich Kryukov 408
1 F-ES Sitecore 254
2 Nakul Chaudhari 235
3 OriginalGriff 235
4 CPallini 223
0 Sergey Alexandrovich Kryukov 10,237
1 OriginalGriff 8,730
2 Sascha Lefèvre 3,664
3 Maciej Los 3,392
4 Richard Deeming 2,500


Advertise | Privacy | Mobile
Web03 | 2.8.150520.1 | Last Updated 3 Jan 2013
Copyright © CodeProject, 1999-2015
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