سوالات VB

[Rayanehfarda]

سلام آقاي تنهاترين
خيلي خيلي ممنون از راهنمايت
ببين عزيزم من كارهاي كه گفتي را انجام دادم
اول يك DataEnvironment ساختم بعد Connection1 ساختم
در بعد Properties را انتخاب كردم
و بعد گزينه OLE DB Provider for ODBC Drivers‌ را انتخاب كردم
در لبه Connection گزينه Use Connection string دكمه Build را زدم و در پنجره بعدي لبه Machine Data Source را انتخبا كردم
و بعد MS Access database‌ را انتخاب كردم
مسير بانكم را دادم و برگشتم به پنجره لبه Connection و براي اطمينان از صحت كار دكمه Test Connection‌را زدم و جواب درست براي صحت كارم گرفتم
و بعد تمام Tabel هايم آمد بعد در نوار منو گزينه Project و
گزينه 8.5 add crystal reports را زدم در پنجره اي كه باز شد گزينه
useing the report Expert را انتخاب كردم پنجره Standard Report Expert باز شد و در لبه data سه دكمه بود كه دكمه DataEnvironment غير فعال بود و دكمه بعدي Project و دكمه سوم other بود من بايد
كدام گزينه را انتخاب كنم
اگر بايد گزينه DataEnvironment را انتخاب كنم چه كار بايد بكنم تا فعال بشود
لطفا يك برنامه با فايل كريستال كه از اين طريق كانكت شده برايم بفرست
من ميخواهم برنامه upload‌ كنم ولي تازه گيها نميتوانم آيا مشكل سرور ايران ويج است يا كامپيوتر من
مرسي

[tanhatarin]

سلام
خوبين؟
شما بايد بجاي انتخاب گزينه OLE DB Provider for ODBC Drivers‌ گزينه Microsoft jet 4.5 OLE Vider رو انتخاب كني و در قسمت Connectionمسير بانك رو معرفي كني .البته در اين قسمت محل پسورد هم داره ولي شما فقط بايد در قسمت All همون طور كه قبلا گفتم پسورد رو وارد كني
اينجوري DataEinviromet هم فعال ميشه

[Rayanehfarda]

مرسي از راهنمايت
تشكر از اينكه سريع پاسخ ميدهيد
وقتي كارهاي شما را انجام دادم برنامه به من يك خطا داد
[attachment=374]
لطفا برايم حل كنيد
مرسي

[tanhatarin]

salam
eshtebah az man bood. kheyli ba ajale neveshte boodam.
shoam bayad dar ghesmat All bejaye gozineye password az gozineye jet OLEDB database password estefade konid ta err bartaraf beshe.
movafagh bashin.

[Rayanehfarda]

سلام خيلي ممنون
مشكل Password حل شد
ولي گزينه 8.5 add crystal reports را زدم
در پنجره اي كه باز شد گزينه useing the report Expert را انتخاب كردم
پنجره Standard Report Expert باز شد
و در لبه data سه دكمه بود
كه دكمه DataEnvironment غير فعال است من بايد كدام گزينه را انتخاب كنم
حالا بگو چكار كنم

[tanhatarin]

سلام
واقعا نمي دونم . چون من امتحان كردم ولي DataEnvironment فعال شد. تنها حدسي كه مي زنم اينه كه شما با سيستمي كار ميكنيد كه ادمين نيست و اين دسترسي براي شما تعريف نشده . و يا مشكل كريستال ريپورت داريد.
البته من با crystal reports 7 امتحان كردم.

[Rayanehfarda]

اين روش براي استفاده فايل كريستال از دورن برنامه است
براي كسانيكه از تعداد بالاي از فايلهاي كريستال استفاده ميكنند
آيا بايد تمامي آن گزارشات را در برنامه وي بي وارد كنند منظورم كريستال است
يا ميتوانند هم از خارج برنامه وي بي فايل كريستال بسازند و آن را در برنامه اجرا كنند

ميشه يك مثال و دستورات ارتباط با بانك وصل شدن و قطع شدن را بنويسيد

مرسي
موفق باشي

[tanhatarin]

بله اين روش براي فايلهاي كريستال داخل vb هست.
و براي شبكه اين روش خيلي بهتره.
اينم يه سرس با اكتيو ريپورت اگه سوالي در مرودش داشتي بپرس.

Dim cn As New ADODB.Connection
Dim rst As New ADODB.Recordset
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=\\server_TT\haml_shahrestan\ebtal.mdb;" & _
"Persist Security Info=False"
cn.Open
Set rst.ActiveConnection = cn
rst.CursorLocation = adUseClient
rst.Open "select date,Count('body') as body from ebtal where body like'" & Text3.Text & "%' and date >='" & Text1.Text & "'and date <='" & Text2.Text & "'and nama like'" & Text4.Text & "%'and ellat like'%" & Text5.Text & "%' group by date order by date"
rst.ActiveConnection = Nothing
Dim rpt As New ActiveReport2
Set rpt = New ActiveReport2
rpt.DataControl1.Recordset = rst

rpt.Show

[tanhatarin]

اينم يه دستور براي باز و بسته شدن بانك هنگام ذخيره اطلاعات كه براي دستور قبلي هنگام گزارش هم رعايت شده بود . البته اين دستور با DataEnvironment هست كه با كمي تغيير ميشه در مورد ado هم استفاده كرد.
DataEnvironment1.rsCommand1.Open
DataEnvironment1.rsCommand1.AddNew
DataEnvironment1.rsCommand1.Fields("body") = Text1.Text
DataEnvironment1.rsCommand1.Fields("nama") = Text2.Text
DataEnvironment1.rsCommand1.Fields("date") = shamsi.Text
DataEnvironment1.rsCommand1.Fields("tim") = Text4.Text
DataEnvironment1.rsCommand1.Fields("ml") = Text9.Text
DataEnvironment1.rsCommand1.Fields("ellat") = Text7.Text
DataEnvironment1.rsCommand1.Update
DataEnvironment1.rsCommand1.Close

[Rayanehfarda]

سلام آقاي تنها ترين
من ميخواستم بدانم كه از ADODC استفاده كنم بهتر است يا ADODB

من در برنامه ام از ADODC استفاده كردم و در لود فرم نوشتم

    a = "select * from TELPON"
    Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB. 4  . 0 ; Data Source=" & App.Path & "/JALAL.MDB; Persist Security Info=False; Jet OLEDB: Database Password=13613490"
    Adodc1.CommandType = adCmdText
    Adodc1.RecordSource = a
    Adodc1.Refresh

و وقتي برنامه لود ميشود يك فايل JALAL.ldb ايجاد ميشود
و نشان ميدهد كه برنامه باز است من براي ديدن ركوردها بايد تمامي ركوردها را لود و در ديتا گريد نشان بدهم تا كاربر بتواند آنها را تغيير اطلاعات بدهد منظورم ويرايش كند و يك ركورد جديد وارد كند و در ديتاگريد نشان بدهد
بايد چه دستور بنويسم تا همه ركوردها نشان داده شود و هم بانك باز و بسته شود

[tanhatarin]

سلام
خب من بعد از مدتها اومدم و فكر مي كنم شما هم تازه پيغام گذاشتي.
شما بهتره كه از adodb استفاده كني (البته به نظر من ) و اون رو با ماژول بسازي نه اينكه از ابزار بياريش.
Dim cnn1 As ADODB.Connection
Dim strCnn As String
Set cnn1 = New ADODB.Connection
strCnn = "Provider=microsoft jet 4.0 ole db provider ;" & _
"Data Source= d:\haml.mdb; "

ولي من تا حالا براي گريد از ديتا اينواير منت استفاده كردم كه خيلي راحت تره.
كافيه فقط ديتا اينواير منت رو بسازي و يك ديتا گريد هم رو فرم بزاري بعد دستور زير رو تو لود فرم بنويسي.

Set dataGrid1.DataSource = Nothing
Set dataGrid1.DataSource = DataEnvironment1
dataGrid1.DataMember = "command1"
DataEnvironment1.rsCommand1.Close

اميد وارم منظورت همينا باشه كه برات نوشتم . در مورد ديتا گريد من قبلا يه سرس گذاشته بودم تو همينجا . فكر مي كنم تو قسمت جستجوي هوشمند بود.
اون كاملتره.فكر نمي كنم تا مدتها بتونم دوباره برگردم.