05-10-12, 01:09 AM
كاتب الموضوع : سعود
استدعاء ماتسمى بفضاء الاسماءكود :
Imports System.Data
Imports System.Data.OleDb
ثم بعد جملة public class form1
كود :
Dim constr As String = "provider=microsoft.ace.oledb.12.0;data source=db1.accdb"
Dim conn As New OleDbConnection(constr)
Dim sql As String = "select * from tab1"
هذي فكرة دخلت راسي بعد برنامج باحدى القنوات حينما المذيع يقول للمتصل قل وقف(قف) ويقوم من على الكمبيوتر بنقر زر فيقف الكمبيوتر عن العدمتوقفا عند اسم معين
ثلاث ادوات تسمية
زر امر
اداة مؤقت(timer)
عند تحميل النموذج بحدث form1_load
اكتب
كود :
Me.AcceptButton = Button1
كود :
Select Case Timer1.Enabled
Case False
Timer1.Enabled = True
Case True
Timer1.Enabled = False
Label1.Text = " الفائز هو : " & vbCrLf & txtname.Text
End Select
وبحدث المؤقت
كود :
Try
txtnu.Text += 1
Dim sql As String = "select * from tab1 where txtnu=" & Val(txtnu.Text)
Dim ds As New DataSet
Dim da As New OleDbDataAdapter(sql, conn)
da.Fill(ds, "tab1")
If Me.BindingContext(ds, "tab1").Count = 0 Then
txtname.Text = ""
txtemail.Text = ""
End If
txtname.DataBindings.Add("text", ds, "tab1.txtname")
txtemail.DataBindings.Add("text", ds, "tab1.txtemail")
txtname.DataBindings.Clear()
txtemail.DataBindings.Clear()
'Timer1.Enabled = False
Catch ex As Exception
MsgBox(Err.Description)
End Try
Dim ds1 As New DataSet
Dim da1 As New OleDbDataAdapter(Sql, conn)
da1.Fill(ds1, "tab1")
If txtnu.Text > Me.BindingContext(ds1, "tab1").Count Then
txtnu.Text = 0
End If
tab1
txtnu
txtname
txtemail
جدول
حقل رقم
حقل نصي للاسم
حقل نصي للبريد
تحياتي