leoarsalan
دوشنبه 23 آبان 1390, 05:32 صبح
سلام دوستان عزیز امیدوارم که حالتون خوب باشه
دوستان من برنامه ای دارم که با تکه کد زیر از بانک اکسس دارم اطلاعات رو درون یک دیتاگرید لود میکنم
Public Shared Function LoadDB(ByVal Path As String, ByVal Table As String, ByVal Grid As DataGridView)
Dim conect As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=" & Path)
Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM " & Table, conect)
conect.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, Table)
Grid.DataSource = myDataSet.Tables(Table).DefaultView
conect.Close()
conect = Nothing
End Function
ابته من یک دیتاگرید ندارم 8 تا دیتاگرید هست که از یک بانک داره استفاده میکنه و در بانک 8 table هست
حالا من میخوام با انتخاب هر ردیف از دیتاگرید و زدن کلید چاپ بخشی به عنوان چاپ که در واقع همون کریستال ریپورت هست باز بشه
در حال حاضر من نمیدونم تو کریستال ریپورت 13 چطور باید تکس باکس هام رو قرار بدم در وی بی 6 یک بخش DataField برای rtpTexbox ها بود اما در VB.ne باید چه کار کرد ؟! :افسرده::متفکر:
ممنون میشم راهنماییم کنید
دوستان من برنامه ای دارم که با تکه کد زیر از بانک اکسس دارم اطلاعات رو درون یک دیتاگرید لود میکنم
Public Shared Function LoadDB(ByVal Path As String, ByVal Table As String, ByVal Grid As DataGridView)
Dim conect As OleDbConnection = New OleDbConnection("Provider=Microsoft.jet.oledb.4.0;data source=" & Path)
Dim cmd As OleDbCommand = New OleDbCommand("Select * FROM " & Table, conect)
conect.Open()
Dim myDA As OleDbDataAdapter = New OleDbDataAdapter(cmd)
Dim myDataSet As DataSet = New DataSet()
myDA.Fill(myDataSet, Table)
Grid.DataSource = myDataSet.Tables(Table).DefaultView
conect.Close()
conect = Nothing
End Function
ابته من یک دیتاگرید ندارم 8 تا دیتاگرید هست که از یک بانک داره استفاده میکنه و در بانک 8 table هست
حالا من میخوام با انتخاب هر ردیف از دیتاگرید و زدن کلید چاپ بخشی به عنوان چاپ که در واقع همون کریستال ریپورت هست باز بشه
در حال حاضر من نمیدونم تو کریستال ریپورت 13 چطور باید تکس باکس هام رو قرار بدم در وی بی 6 یک بخش DataField برای rtpTexbox ها بود اما در VB.ne باید چه کار کرد ؟! :افسرده::متفکر:
ممنون میشم راهنماییم کنید