05-05-16, 09:24 PM
05-05-16, 10:03 PM
اذا تقصد فكرة عامة
فاذا ربطت عن طريق داتاتايبل فتحتاج كود بسيط كالتالي
وهذا كلاس المثال
فاذا ربطت عن طريق داتاتايبل فتحتاج كود بسيط كالتالي
PHP كود :
Me.BindingContext(dt).Position = Int(Rnd() * dt.Rows.Count - 1)
PHP كود :
Public Class Form1
Dim con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
Dim da As New OleDb.OleDbDataAdapter("select * from tb", con)
Dim dt As DataTable
Private Sub gd()
dt = New DataTable
da.Fill(dt)
gp()
tid.DataBindings.Add("text", dt, "tid")
tname.DataBindings.Add("text", dt, "tname")
dt.Dispose()
End Sub
Private Sub gp()
b:
Dim p As Integer = Int(Rnd() * dt.Rows.Count - 1)
If Me.BindingContext(dt).Position = p Then GoTo b
Me.BindingContext(dt).Position = p
End Sub
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
gd()
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
gp()
End Sub
End Class
05-05-16, 10:46 PM
05-05-16, 11:41 PM
06-05-16, 12:29 AM
12-05-16, 02:17 PM
07-01-19, 12:37 AM
07-01-19, 04:31 PM