الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مشكلة بموقعي !

بدأه csgirl87 في 16 أغسطس 2009 · 4 رد · 472 مشاهدة · في ASP.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكــم ورحمـة الله وبركاتــه ،،

انا حاليا اعمل على موقع لتأجير السيارات ..بالـasp.net + vb.net

وفي الجزء الخاص بالحصول على تقارير شهرية / اسبوعية / يومية .. اعاني من مشكلة وهي كالتالي ..

في الصفحة عندي ثنتين dropdownlist .. و زر للضغط عليه ..

وحدة منهم فيها الأشهر من 1 - 12

والثانية فيها السنوات من 2000 إلى 2009

اريد ان اختار متغيرين من هذتين القائمتين .. ثم اقوم بالدخول إلى الـ database والحصول على ارقام السيارات التي تم تأجيرها في هذه الفترة ..

كتبت الكود كالتالي ..

Protected Sub btngo_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btngo.Click

Dim startmonth As String = ddlmonth.SelectedValue

Dim startyear As String = ddlyear.SelectedValue

Dim dt As Data.DataTable

Dim query As String

query = "SELECT vehicleregNo FROM [montrealTransactions]WHERE MONTH(RentedOn) = startmonth AND year(RentedOn) = startyear"

dt = DB.QueryDT(query)

If dt.Rows.Count = 1 Then

txtNo.Text = dt.Rows(0)("vehicleregNo").ToString

Exit Sub

End If

End Sub

المشكلة .. اني لا استطيع ان اربطه بالداتا بيس !

حاولت تجريب الطريقة التالية .. الموجودة في الأنرنت ..

Dim DBConn As Data.OleDb.OleDbConnection

Dim DBCommand As Data.OleDb.OleDbDataAdapter

Dim DSPageData As New Data.DataSet

Dim TheQuery As String

DBConn = New Data.OleDb.OleDbConnection("rentacarConnectionString2")

TheQuery = "Select " & txtFieldList.Text _

& " From " & txtTableName.Text

ولكنها لم تعمل ايضا .. لأني لم اعرف كيف اربطها ايضا .. وليش هناك شرح متوافر في الأنترنت !!

فهل يمكنكم مساعدتي .. في شرح هذه النقطة لي .. فأستطيع تنفيذها ؟؟

#2

please i realy ned your help :(

#3

Up

:(

#4

هذا كود سريع حتى توضح عندك الفكرة

و يمكن عمل افضل من هذا الكود

		DateTime date = DateTime.Parse("Put Your Date String Here");


		SqlConnection con = new SqlConnection(" Put your SQL Connection String Here");


		SqlCommand cmd = new SqlCommand("select * from tabName where datecol = @date", con);

		SqlParameter DateParameter = new SqlParameter("@Date", SqlDbType.DateTime);
		DateParameter.Value = date;
		cmd.Parameters.Add(DateParameter);
		con.Open();
		SqlDataReader reader =  cmd.ExecuteReader();

		while (reader.Read())
		{
			int anything = (int)reader["firstColName"];
		}
		reader.Close();
		con.Close();

تم تعديل هذه المشاركة بواسطة Slayer666 في 4 سبتمبر 2009 في 21:21

#5

السلام عليكــم ورحمـة الله وبركاتــه ،،

في أعلى صفحة الكود أكتبي هذا الكود لاستيراد namespaces التالية:

Imports System.Data

Imports System.Data.SqlClient

ثم أكتبي الكود التالي الذي سيقوم بعملية بعملية الاتصال مع قاعدة البيانات:

Dim con As New SqlConnection("جملة الاتصال مع قاعدة البينات(مثلا: Data Source=ALMATADOR;Initial Catalog=mydatabase name;Integrated Security=True")

حيث أن almatador هو إسم السيرفر

كود جلب البيانات على أساس قيمة 2dropdownlists:

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim String = ddlmonth.SelectedValue

Dim startyear As String = ddlyear.SelectedValue</SPAN>

Dim con As New SqlConnection("Data Source=ALMATADOR;Initial Catalog=test;Integrated Security=True")

Dim com As New SqlCommand()

com.CommandText = "SELECT vehicleregNo FROM [montrealTransactions]WHERE MONTH=' " + startmonth + "'AND year= '" + startyear + "' "

com.CommandType = CommandType.Text

Dim dr As SqlDataReader

dr = com.ExecuteReader()

While dr.Read()

txtNo.Text = dr(0).ToString()

End While

End Sub

</FONT>

مواضيع مشابهة