我需要一些帮助...... [英] I need some help over here.....

问题描述

大家好。



我需要一些帮助........

i想复制我的3个sql文件在这3个作品领域。



谢谢........

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

推荐答案

试试这个

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

这篇关于我需要一些帮助......的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！