سلام درباره دیتا ریپورت

[mes]

عزیزان ببینید من یه برنامه نوشتم که یه برنامس برای ثبت نام یه صفحه اصلی داره با چند تا کلید یکی اطلاعات اصلی یه نفر از قبیل نام و نام خانوادگی رو می گیره یکی دیگش اطلاعات جزئی رو می گیره مثل آدرس و غیره و در یک فایل بانک ضبط می کنه ویک دگمه دیگه ای هم هست برای چاپ اطلا عات که واردش که می شی برای هر شخص دوصفحه وجود داره که مال همه درش هست وبرای اینکه مال یه نفر رو در بیاره باید شمارش رو از پایین صفحه پیدا کنیم و بهش بدیم تا چاپش کنه من می خام تو همون صفحه ای که اطلاات رو می گیره یه دگمه بزارم که وقتی اون رو بزنم فقط مال اون شخص پرینت شه و دیگه اونیکی ها نیان
قربان شما
mes

[mes]

عزیزان ببینید من یه برنامه نوشتم که یه برنامس برای ثبت نام یه صفحه اصلی داره با چند تا کلید یکی اطلاعات اصلی یه نفر از قبیل نام و نام خانوادگی رو می گیره یکی دیگش اطلاعات جزئی رو می گیره مثل آدرس و غیره و در یک فایل بانک ضبط می کنه ویک دگمه دیگه ای هم هست برای چاپ اطلا عات که واردش که می شی برای هر شخص دوصفحه وجود داره که مال همه درش هست وبرای اینکه مال یه نفر رو در بیاره باید شمارش رو از پایین صفحه پیدا کنیم و بهش بدیم تا چاپش کنه من می خام تو همون صفحه ای که اطلاات رو می گیره یه دگمه بزارم که وقتی اون رو بزنم فقط مال اون شخص پرینت شه و دیگه اونیکی ها نیان
قربان شما
mes
راستش خودم یه فکری براش کردم اگه میشه بهم بگیم چطور تکست نوشته شده تو یه جعبه متن رو به یه فیلد در بانک اطلاعاتی انتقال داد

[mes]

عزیزان ببینید من یه برنامه نوشتم که یه برنامس برای ثبت نام یه صفحه اصلی داره با چند تا کلید یکی اطلاعات اصلی یه نفر از قبیل نام و نام خانوادگی رو می گیره یکی دیگش اطلاعات جزئی رو می گیره مثل آدرس و غیره و در یک فایل بانک ضبط می کنه ویک دگمه دیگه ای هم هست برای چاپ اطلا عات که واردش که می شی برای هر شخص دوصفحه وجود داره که مال همه درش هست وبرای اینکه مال یه نفر رو در بیاره باید شمارش رو از پایین صفحه پیدا کنیم و بهش بدیم تا چاپش کنه من می خام تو همون صفحه ای که اطلاات رو می گیره یه دگمه بزارم که وقتی اون رو بزنم فقط مال اون شخص پرینت شه و دیگه اونیکی ها نیان
قربان شما
mes
راستش خودم یه فکری براش کردم اگه میشه بهم بگیم چطور تکست نوشته شده تو یه جعبه متن رو به یه فیلد در بانک اطلاعاتی انتقال داد
منظورم اینه که حالا ما تو صفحه توی یه تکست بوکس یه نوشته ای داریم می خاهیم اون ر به فیلدی ببریم که مثلا با دیتا 1 ارتباظ برقرار شده ببریم مثلا توی txtfields(1 نوشته شده علی و با data1 با فایل بانک ارتباط برقرار کردیم یعنی علی از یه فایل بانک اطلاعاتی دیگس که مثلا با data2اومده اونجا میخایم ببریمش به یکی دیگه

[Vahid_Nasiri]

برای اینکار باید از SQL استفاده کنی و زیاد به تواناهای دیتاکنترل معمولی وی بی دلخوش نکرد.
در هر حال فرض کنیم که شما می خواهید علی را پیدا کنید و اطلاعاتش را چاپ کنید.
عبارت اس کیو ال زیر را به دیتا سورس کنترل می دی :

strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
و اون را ریفرش می کنی . حالا پر شده از اطلاعات علی .
یعنی


strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = strSQL 'dbTableName ' set recordsource property
VBDataControl.Refresh ' update data control properties


با استفاده از رکورد ست اون می تونی بخونیش و بعد چاپش کنی .

[mes]

برای اینکار باید از SQL استفاده کنی و زیاد به تواناهای دیتاکنترل معمولی وی بی دلخوش نکرد.
در هر حال فرض کنیم که شما می خواهید علی را پیدا کنید و اطلاعاتش را چاپ کنید.
عبارت اس کیو ال زیر را به دیتا سورس کنترل می دی :

strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
و اون را ریفرش می کنی . حالا پر شده از اطلاعات علی .
یعنی


strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = strSQL 'dbTableName ' set recordsource property
VBDataControl.Refresh ' update data control properties


با استفاده از رکورد ست اون می تونی بخونیش و بعد چاپش کنی .
شاید من نتونستم خوب سوالم رو بگم
ببین عزیز مثلا من یه لیبل دارم که توش نوشته علی خوب می خام این نوشته رو ببرم و بزارم تو ی یه فیلد به نام cod در فایل بانک اطلاعاتی ss که با data1 باهاش ارتباط برقرار کردم
چطور میشه
ببخشید

[mes]

برای اینکار باید از SQL استفاده کنی و زیاد به تواناهای دیتاکنترل معمولی وی بی دلخوش نکرد.
در هر حال فرض کنیم که شما می خواهید علی را پیدا کنید و اطلاعاتش را چاپ کنید.
عبارت اس کیو ال زیر را به دیتا سورس کنترل می دی :

strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
و اون را ریفرش می کنی . حالا پر شده از اطلاعات علی .
یعنی


strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = strSQL 'dbTableName ' set recordsource property
VBDataControl.Refresh ' update data control properties


با استفاده از رکورد ست اون می تونی بخونیش و بعد چاپش کنی .
اگه میشه اینو بگین
شاید من نتونستم خوب سوالم رو بگم
ببین عزیز مثلا من یه لیبل دارم که توش نوشته علی خوب می خام این نوشته رو ببرم و بزارم تو ی یه فیلد به نام cod در فایل بانک اطلاعاتی ss که با data1 باهاش ارتباط برقرار کردم
چطور میشه
ببخشید

[Vahid_Nasiri]

اینطوری قشنگ تر شد!




برای اینکار باید از SQL استفاده کنی و زیاد به تواناهای دیتاکنترل معمولی وی بی دلخوش نکرد.
در هر حال فرض کنیم که شما می خواهید علی را پیدا کنید و اطلاعاتش را چاپ کنید.
عبارت اس کیو ال زیر را به دیتا سورس کنترل می دی :

strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
و اون را ریفرش می کنی . حالا پر شده از اطلاعات علی .
یعنی


strSQL = "select * from tbl1 where my_field = "'+ txt1.text +"'"
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = strSQL 'dbTableName ' set recordsource property
VBDataControl.Refresh ' update data control properties


با استفاده از رکورد ست اون می تونی بخونیش و بعد چاپش کنی .
اگه میشه اینو بگین
شاید من نتونستم خوب سوالم رو بگم
ببین عزیز مثلا من یه لیبل دارم که توش نوشته علی خوب می خام این نوشته رو ببرم و بزارم تو ی یه فیلد به نام cod در فایل بانک اطلاعاتی ss که با data1 باهاش ارتباط برقرار کردم
چطور میشه
ببخشید

[mes]

می بخشید من متوجه نمی شم چی میگین عزیز من ببین چجوری میشه یه نوشته رو به یه فیلد یه رکورد برد؟؟؟؟ :roll: :roll: :roll: :roll:

[Vahid_Nasiri]

Public Function add_writeNewRecord02(VBDataControl As Data, _
dbaseFileName As String, _
dbTableName As String, ParamArray FieldValues() _
As Variant _
) As Boolean
'Usage:
'Call add_writeNewRecord02( _
Data1, _
"c:\vahid\a.mdb", "Hesab", _
Text1.Text, Val(Text2.Text), Text3.Text)
'or
'If add_writeNewRecord02( _
data1, _
App.path + "\Temp\" + DbName, "CODEFL", _
txtSHKOL.Text, txtNAMKOL.Text, txtMOIN1.Text, _
txtNAMMOIN1.Text, txtMOIN2.Text, txtNAMMOIN2.Text) = False _
Then Exit Sub

'by : Vahid Nasiri 1379

Dim j As Integer
On Error GoTo localerr

For j = 0 To UBound(FieldValues())
If FieldValues(j) = "" Then
MsgBox "Please Complete Empty Boxes...", vbExclamation, "Add New Record Error..."
add_writeNewRecord02 = False
Exit Function
End If
Next j


Screen.MousePointer = vbHourglass
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = dbTableName ' set recordsource property
'VBDataControl.Exclusive = True

VBDataControl.Options = dbAppendOnly 'dbDenyWrite
VBDataControl.Refresh ' update data control properties

VBDataControl.Recordset.AddNew ' add a new record to table

For j = 0 To UBound(FieldValues())
VBDataControl.Recordset(j) = FieldValues(j)
Next j

VBDataControl.Recordset.Update ' write record to table

VBDataControl.Recordset.Close
VBDataControl.Database.Close
Screen.MousePointer = vbDefault

Set VBDataControl.Recordset = Nothing


'Beep
add_writeNewRecord02 = True
Exit Function

localerr:
MsgBox Err.Description, vbCritical, "Add New Record Error..."
Screen.MousePointer = vbDefault
add_writeNewRecord02 = False
End Function

[mes]

Public Function add_writeNewRecord02(VBDataControl As Data, _
dbaseFileName As String, _
dbTableName As String, ParamArray FieldValues() _
As Variant _
) As Boolean
'Usage:
'Call add_writeNewRecord02( _
Data1, _
"c:\vahid\a.mdb", "Hesab", _
Text1.Text, Val(Text2.Text), Text3.Text)
'or
'If add_writeNewRecord02( _
data1, _
App.path + "\Temp\" + DbName, "CODEFL", _
txtSHKOL.Text, txtNAMKOL.Text, txtMOIN1.Text, _
txtNAMMOIN1.Text, txtMOIN2.Text, txtNAMMOIN2.Text) = False _
Then Exit Sub

'by : Vahid Nasiri 1379

Dim j As Integer
On Error GoTo localerr

For j = 0 To UBound(FieldValues())
If FieldValues(j) = "" Then
MsgBox "Please Complete Empty Boxes...", vbExclamation, "Add New Record Error..."
add_writeNewRecord02 = False
Exit Function
End If
Next j


Screen.MousePointer = vbHourglass
VBDataControl.DatabaseName = dbaseFileName ' set database property `
VBDataControl.RecordSource = dbTableName ' set recordsource property
'VBDataControl.Exclusive = True

VBDataControl.Options = dbAppendOnly 'dbDenyWrite
VBDataControl.Refresh ' update data control properties

VBDataControl.Recordset.AddNew ' add a new record to table

For j = 0 To UBound(FieldValues())
VBDataControl.Recordset(j) = FieldValues(j)
Next j

VBDataControl.Recordset.Update ' write record to table

VBDataControl.Recordset.Close
VBDataControl.Database.Close
Screen.MousePointer = vbDefault

Set VBDataControl.Recordset = Nothing


'Beep
add_writeNewRecord02 = True
Exit Function

localerr:
MsgBox Err.Description, vbCritical, "Add New Record Error..."
Screen.MousePointer = vbDefault
add_writeNewRecord02 = False
End Function
آقا قربون دستت

[mes]

عزیز دل ببینم وقتی بخایم کلا یه رکورد رو از یه تیبل به یه تیبل دیگه ببریم وبا تیبل اولی با دیتا1 وبا تیبل دومی با دیتا 2 ارتباط بر قرار کنیم از این استفاده می کنیم از اولی به دومی

Data2.Recordset.Bookmark=Data1.Recordset.LastModif ied

اگه نه چطور میشه
بازم منو ببخش که این قدر سوال می پرسم
در ضمن هر دو تا تیبل درس شبیه همن