View Full Version : اعمال شروط کوئری ازطریق فرم
daglararan
جمعه 05 آبان 1385, 11:24 صبح
ایامیشودیک فرم ساخت که ازطریق ان باانتخاب جدولهاویاکویریها وانتخاب فیلدهایی ازانها شروط کوئری رادرهمان فرم اعمال وکوئری دلخواه رابدست اورد؟
------------------------------------------------------
فرزندهنرباش نه فرزندپدر
فرزندهنرزنده کندنام پدر
ehsan_g
جمعه 05 آبان 1385, 12:51 عصر
توسط فرامین SQL می توانی هر کوئری را ایجاد نمایید ودر فرم ویا حتی ماژولها نیز آن را به کارببرید
daglararan
جمعه 05 آبان 1385, 21:21 عصر
سئوال من خیلی مشخص وگویاست.ازطریق فرم
ehsan_g
جمعه 05 آبان 1385, 22:04 عصر
جواب من هم خیلی گویاست شما بجای اینکه کوئری را در قسمت کوئری بسازید می توانید در فرمتان بعد از گرفتن پارامترهای مورد نیاز آنهارا در یک STRINGبا دستورات SQL ادغام نموده ویعد با دستور DOCMD.runSQL آن را اجرا نمائید.
در صورت نیاز اطلاعات بیشتری بدهید تا نمونه برایتان ارسال نمایم
مثال :
docmd.runsql("select a,b from table1 where a=text0.text" )0
daglararan
جمعه 05 آبان 1385, 22:13 عصر
میخواهم درفرمم از یک کومبو اسم کوئری راانتخاب واز یک لیست باکس فیلدهای موردنظرازهمان کوئری را بعد :ازتکست باکسهای مختلف شروطی مانند likkو or و.......را بعدبازدن یک کامندبوتون کوئری بااون شروطی که انتخاب کردم باز شه .....
daglararan
یک شنبه 07 آبان 1385, 09:22 صبح
یعنی همچین امکانی وجود نداره .....؟
ehsan_g
یک شنبه 07 آبان 1385, 23:58 عصر
دوست عزیز فکر می کنی کوئری که در قسمت کوئری ها ایجاد می کنی چیه ؟
همان دستورات sql هستش وراه حل هم همونی که قبلا توضیح دادم خیلی راحت میتونی توسط تکس باکس ویا چک باکس شروط خودرا بصورت جمع استرینگی در بیاری و به قسمت شرط SQL انتقال بدهی ونتیجه را در فرم ببینی
mohsenna30ri
دوشنبه 08 آبان 1385, 09:26 صبح
دوست عزیز
در فرم شما می توانید از شرایط کوئری استفاده کنید
نمونه آنرا من آپلود کردم به ادرس زیر:
http://barnamenevis.org/forum/showthread.php?t=55193
اما معکوس اینکار را هنوز امتحان نکرده ام
mansori
یک شنبه 21 آبان 1385, 17:13 عصر
جواب من هم خیلی گویاست شما بجای اینکه کوئری را در قسمت کوئری بسازید می توانید در فرمتان بعد از گرفتن پارامترهای مورد نیاز آنهارا در یک STRINGبا دستورات SQL ادغام نموده ویعد با دستور DOCMD.runSQL آن را اجرا نمائید.
در صورت نیاز اطلاعات بیشتری بدهید تا نمونه برایتان ارسال نمایم
مثال :
docmd.runsql("select a,b from table1 where a=text0.text" )0
با سلام من کوئریهای اکشن(اپندودلیت) رو از کوئری به فرم منتقل کردم ولی کوئریهای select,union,cross رو جواب نمیده یعنی ممکنه با سلکت کوئری نتیجه نگیره؟
skywork
شنبه 04 آذر 1385, 01:05 صبح
با عرض سلام خدمت جناب آقای نصیری
من مشکل ساخت کوئری برای بانک اطلاعاتی دارم و نمی دونم چگونه درست کنم در محیط ASP.NET راهنماییم کنید
درضمن من هر بار که محیط آی اس پ خراب می شه مجبورم دوباره محیط رو باز سازی کنم و بعد مشکل اتصال پیدا میکنه و من مجبورم به طور کامل از دات نت خارج شم ...................
OleDbDataAdapter1.fill(dataset11)
و همچنین محیط رو به گونه ای طراحی کردم که بصورت چند تکس باکس در بالا برای نشان دادن محتویات بانک و چند باتون ابتدا و انتها و بعدی و قبلی قرار دادم ولی وقتی کدی که برای آن باتون نوشتم محتویات رکورد بعدی را نشون نمیده ..... برای باتون
DIM POSITION AS INTEGER
DIM ID AS STRING
POSITION =0
ME.VIEWSTATE("POSITION")=POSITION
ID = DATASET11.TABLES(0).ROWS(POSITION).ITEM("AU_ID")
DATAVIEW1.ROWFILTER ="AU_ID = '" & ID &"'"
TEXTBOX1.DATABINDING()
LABEL3.TEXT=POSITION + &" OF " &DATASET11.TABLES(0).ROWS.COUNT
AHASBCB@YAHOO.COM
AHASBCB@NOAVAR.COM
mohsenna30ri
شنبه 04 آذر 1385, 10:59 صبح
سلام آقای skywork
سابقه ای در ASP.NET ندارم
اما در اکسس اگر بتونم کاری کنم کوتاهی نخواهم کرد
بهترین کار اینه که فایل یا اون قسمت از فایل اکسست که مشکل داره رو آپلود کنی
بسیاری از برنامه نویسان که از زبان اکسس جهت دیتا بیس برنامه شان استفاده می کنند دچار اشتباهاتی می شوند که در آینده گریبانگیرشان خواهد شد و مجبور می شوند همه برنامه را از بیس عوض کنند و کلی اتلاف وقت می شود - پیشنهاد اکید دارم اول از صحت و بهینه بودن جداول و ارتباطات دیتابیس خودتان مطمئن شده آنگاه در برنامه های بعدی و ASP.NET استفاده کنید
لطفا در صورت امکان عنوان و هدف پروژه تان را بیان کنید شاید بتوان راهکار بهتر و ساده تری در دیتابیس اون هدف شما ارئه داد mohsenna30ri@gmail.com
skywork
سه شنبه 07 آذر 1385, 19:02 عصر
باسلام خدمت آ قای نصیری
من یک ایمیل در مورد مشکل ASP.NET برای شما فرستادم
چون بلد نبود یک فایل ضمیمه رو برای شما بفرستم
skywork
سه شنبه 07 آذر 1385, 19:09 عصر
سلام
من احمد هستم.
این یک پروژه درسی برای رشته کامپیوتر دانشکده است.
استفاده شده از برنامه اکسس برای ساخت بانک اطلاعاتی
نام پروژه :
بانک اطلاعاتی استاد کاران ساختمانی
موارد :
1) باید لیست اعضا را نشان دهد
2) باید یک جستجو گر برای پیدا کردن اعضای موجود در بانک اطلاعاتی
این کد رو من از یک کتاب دات نت نوشتم به عکسها هم یه نگاه بیندازید.
نوشته شده است.ASP.NET 2003 این کدها در محیط ------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11)
DataGrid1.DataBind()
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim position As Integer
Dim id As String
position = 0
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim position As Integer
Dim id As String
position = Me.ViewState("position")
position -= 1
If position < 0 Then
position = 0
End If
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim position As Integer
Dim id As String
position = Me.ViewState("position")
position += 1
If position > DataSet11.Tables(0).Rows.Count - 1 Then
position = DataSet11.Tables(0).Rows.Count - 1
End If
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim position As Integer
Dim id As String
position = DataSet11.Tables(0).Rows.Count - 1
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
Label1.DataBind()
Label2.Text = 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim frmviewlist1 As New viewlist
این باتون برای نمایش یک فایل ای اس پی ایکس دیگه برای نمایش لیست اطلاعات موجود در بانک اکسس
ADD FILE TO PROJECT (VIEWLIST.ASPX)
ولی چون نتونستم کدش رو بنویسم همانتور گذاشتم
End Sub
skywork
سه شنبه 07 آذر 1385, 19:11 عصر
سلام
من احمد هستم.
این یک پروژه درسی برای رشته کامپیوتر دانشکده است.
استفاده شده از برنامه اکسس برای ساخت بانک اطلاعاتی
نام پروژه :
بانک اطلاعاتی استاد کاران ساختمانی
موارد :
1) باید لیست اعضا را نشان دهد
2) باید یک جستجو گر برای پیدا کردن اعضای موجود در بانک اطلاعاتی
این کد رو من از یک کتاب دات نت نوشتم به عکسها هم یه نگاه بیندازید.
نوشته شده است.ASP.NET 2003 این کدها در محیط ------------------
Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
DataSet11.Clear()
OleDbDataAdapter1.Fill(DataSet11)
DataGrid1.DataBind()
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim position As Integer
Dim id As String
position = 0
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim position As Integer
Dim id As String
position = Me.ViewState("position")
position -= 1
If position < 0 Then
position = 0
End If
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Dim position As Integer
Dim id As String
position = Me.ViewState("position")
position += 1
If position > DataSet11.Tables(0).Rows.Count - 1 Then
position = DataSet11.Tables(0).Rows.Count - 1
End If
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim position As Integer
Dim id As String
position = DataSet11.Tables(0).Rows.Count - 1
Me.ViewState("position") = position
id = DataSet11.Tables(0).Rows(position).Item("au_id")
DataView1.RowFilter = "au_id = '" & id & "'"
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
TextBox8.DataBind()
TextBox9.DataBind()
TextBox10.DataBind()
TextBox11.DataBind()
TextBox12.DataBind()
Label2.Text = position + 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
TextBox1.DataBind()
TextBox2.DataBind()
TextBox3.DataBind()
TextBox4.DataBind()
TextBox5.DataBind()
TextBox6.DataBind()
TextBox7.DataBind()
Label1.DataBind()
Label2.Text = 1 & " of " & DataSet11.Tables(0).Rows.Count
End Sub
Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click
Dim frmviewlist1 As New viewlist
این باتون برای نمایش یک فایل ای اس پی ایکس دیگه برای نمایش لیست اطلاعات موجود در بانک اکسس
ADD FILE TO PROJECT (VIEWLIST.ASPX)
ولی چون نتونستم کدش رو بنویسم همانتور گذاشتم
End Sub
شاپرک
چهارشنبه 08 آذر 1385, 08:46 صبح
من که چیزی متوجه نشدم !!!!!!!!!!!!
mohsenna30ri
چهارشنبه 08 آذر 1385, 09:19 صبح
آقای skywork
احمد آقا سلام
ایمیل مربوطه به دستم رسید و اون رو جواب دادم
در صورت امکان فایل اکسس مورد نظرتون رو اینجا آپلود کنید یا تو ایمیل بصورت atach ارسال کنید
تا مشکل شما بررسی و بحث شود
skywork
چهارشنبه 08 آذر 1385, 15:17 عصر
با سلام
پیام تون گرفتم و الان فابل اکسس رو برای شما ایمیل می کنم
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.