behzad_lover
یک شنبه 13 اردیبهشت 1388, 17:55 عصر
سلام.
من یک دیتابیس اکسس دارم و چند تا تکست.من می خوام که رکزد دیتابیستم مثلا ردیف6،نام:بهزاد،آدرس:... رو در دیتاریپورت گزارش گیری کنم.
درضمن از از کد زیر استفاده می کنم که کل دیتابیس رو چاپ می کنه!!!
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\DATA\DB.mdb"
Dim objConnection As New ADODB.Connection
Dim objRecordSet As New ADODB.Recordset
objConnection.ConnectionString = strCnn
objConnection.Open
objRecordSet.Open "APTECH", objConnection, adOpenKeyset, adLockPessimistic, adCmdTable
Set DataReport1.DataSource = objRecordSet
DataReport1.DataMember = objRecordSet.DataMember
DataReport1.Show
لطفا کمکم کنید.
من یک دیتابیس اکسس دارم و چند تا تکست.من می خوام که رکزد دیتابیستم مثلا ردیف6،نام:بهزاد،آدرس:... رو در دیتاریپورت گزارش گیری کنم.
درضمن از از کد زیر استفاده می کنم که کل دیتابیس رو چاپ می کنه!!!
Dim strCnn As String
strCnn = "Provider=Microsoft.Jet.OLEDB.3.51;Data Source=" & App.Path & "\DATA\DB.mdb"
Dim objConnection As New ADODB.Connection
Dim objRecordSet As New ADODB.Recordset
objConnection.ConnectionString = strCnn
objConnection.Open
objRecordSet.Open "APTECH", objConnection, adOpenKeyset, adLockPessimistic, adCmdTable
Set DataReport1.DataSource = objRecordSet
DataReport1.DataMember = objRecordSet.DataMember
DataReport1.Show
لطفا کمکم کنید.