كيف اسوي قرعة لأسماء مخزنة في قاعدة بيانات اكسس ؟

الاخ الكريم

بالنسبه للشق الاول من سؤالك تقوم بفتح قلعدة بيانات الاكسس من المكان الموجوده فيه و تقوم بقرائتها سجل تلو الآخر ومع كل مره تقرأ فيها تقوم باظهار الاسم فى التكست بوكس ويتم التحكم فى عملية القراءه من خلال زرار البوتون حتى تنتهى من قراءة كل الجدول

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

Dim sqlconnection1 As New SqlConnection

Dim sqlcommand1 As New SqlCommand

sqlconnection1.ConnectionString = _

"Data Source=.\SQLEXPRESS;AttachDbFilename=D:\DataBase\Lense_Chamber.mdf;Integrated Security=True;User Instance=True"

sqlconnection1.Open()

sqlcommand1.CommandText = _

"select name from names "

sqlcommand1.Connection = sqlconnection1

Dim SReader As SqlClient.SqlDataReader

SReader = sqlcommand1.ExecuteReader()

If Not SReader.Read Then

MsgBox("كود صنف غير صحيح")

SReader.Close()

sqlconnection1.Close()

Exit Sub

End If

textbox1.Text = SReader.Item("name")

SReader.Close()

costOpen()

End Sub

تقوم باستبدال قاعدة بيانات الاس كيو ال بقاعدة الاكسس اى تقوم باستبدال connection string

تقبل التحيه

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

افضل طريقة استخدام المصفوفات حيث يتم تعبئة الجدول في مصفوفة ... والكود التالي يختار قيمة عشوائية من المصفوفة ...

random number.txt