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

خطاء في كود استعلام SELECT

بدأه محمد مجذوب في 30 يونيو 2010 · 3 رد · 548 مشاهدة · في ADO.NET
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

هذا الكود يقوم بعمل بحث لأسم الفيديو في قاعدة بيانات ويقوم بعرض الفيديو ذي الاسم المبحث عنه ولكن لم ينفذ معى هذا الكود فالرجاء المساعدة في الكود وشكرا ...

axMediaPlayer.Ctlcontrols.stop()

Conn.Open()

axMediaPlayer.URL = ""

Dim x As String

x = InputBox("ادخل اسم الفيديو")

Dim Command As New OleDbCommand("SELECT * FROM TableVideo(VideoName) values ('" & x & "')", Conn)

Command.ExecuteNonQuery()

PlayVideo(x)

Conn.Close()
#2

بسم الله الرحمن الرحيم

اخى العزيز

ممكن تستسخدم الكود ده

جرب و انا معك

Conn.Open()

        Dim x As String
        x = InputBox("ادخل اسم الفيديو")
        Dim Command As New OleDbCommand("SELECT * FROM TableVideo where VideoName= ('" & x & "')", conn)
        Command.ExecuteReader()
        dr = Command.ExecuteReader
        Do While dr.Read
            x = dr("VideoName")
        Loop
        PlayVideo(x)
        conn.Close()
#3

الأخ الفاضل شكرا على المساعدة بس المتغير dr يكون تعريفة من النوع شنو .............يعطيك العافية

#4

بسم الله الرحمن الرحيم

اخى العزيز

ال dr معرفه على ان datareader

Dim dr As OleDb.OleDbDataReader

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