السلام عليكم ....
لو سمحتوا ممكن احد يساعدني وباسرع وقت ممكن :sad: :sad:
انا عندي برنامج .. هذا البرنج هذا البرنامج يطلب مني اشوف الطلبات اللي تجيني على تيبل اسمه request
وبعدين انا اقرى الطلبات واظيفها او احذفها او اعدلها على تيبل ثاني اسمه person
المشكله انه انا سويت الكود وما فيه error بس اذا حاولت اسوي رن ما يطلع لي اي نتيجه :angry: :cry:
حاولت اشوف وش المشكله لكن مالقيت
ملاحظه :
انا مادرست كيفية ربط قاعدة البيانات بالفيدوال بيسك .. لكن قدرت افهم بعض الاجزاء ...واتوقع المشكله من الكونيكشن مع الداتا بيس
هذا هو الكود
Imports System.Data
Imports System.Data.OleDb
Public Class Form1
Dim Connectionstring As String = "provider=Microsoft.ACE.oledb.12.0;data source=" & Application.StartupPath & "\yellowpages.accdb"
Dim conn As New OleDbConnection(Connectionstring)
' Dim Conn As New OleDbConnection()
'عناصر الأتصال بقاعدة البيانات
Dim cmd As New OleDbCommand
Dim adapt As New OleDbDataAdapter
Dim ds As New DataSet
Dim BS As New BindingSource
'حدث ملئ الليست بوكس بالبيانات
Sub filllistbox()
'فتح الأتصال
Conn.Open()
Dim str As String = "SELECT * FROM Requset"
'تعريف كائن وفق الأستعلام والأتصال
adapt = New OleDbDataAdapter(str, conn)
'تفريغ الداتا ست
ds.Clear()
'ملئ الدتا ست بالبيانات
adapt.Fill(ds, "Requset")
'سحب البينات من الدتا ست
BS.DataSource = ds
BS.DataMember = "Requset"
'ملئ الليست بوكس بالجدول المراد
SubscriberRequests.DataSource = BS
SubscriberRequests.DisplayMember = "AID"
adapt.Dispose()
'أغلاق الأتصال
Conn.Close()
End Sub
Sub filltext() 'حدث ملئ مربعات النصوص في التاب الأول والثاني
Try
With Me
.TextBox1.Text = ds.Tables("Requset").Rows(BS.Position)("Fname").ToString
.TextBox4.Text = ds.Tables("Requset").Rows(BS.Position)("Mname").ToString
.TextBox3.Text = ds.Tables("Requset").Rows(BS.Position)("Lname").ToString
.TextBox2.Text = ds.Tables("Requset").Rows(BS.Position)("Job").ToString
.TextBox7.Text = ds.Tables("Requset").Rows(BS.Position)("PType").ToString
.TextBox5.Text = ds.Tables("Requset").Rows(BS.Position)("Tel").ToString
.TextBox8.Text = ds.Tables("Requset").Rows(BS.Position)("type").ToString
TextBox6.Text = ds.Tables("Requset").Rows(BS.Position)("address").ToString
End With
Catch ex As Exception
End Try
End Sub
Private Sub Form4_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
filllistbox()
filltext()
End Sub
Private Sub SubscriberRequests_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SubscriberRequests.SelectedIndexChanged
On Error Resume Next
BS.Position = SubscriberRequests.SelectedIndex
filltext()
End Sub
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
If TextBox3.Text <> "" And TextBox4.Text <> "" And TextBox1.Text <> "" And TextBox5.Text <> "" Then
Try
'الأتصال
cmd.Connection = conn
'عبارة الأضافة
cmd.CommandText = "insert into person (Fname,Mname,Lname,Job,Tel,address,PType) values('" & TextBox1.Text & "','" & TextBox4.Text & "','" & TextBox3.Text & "','" & TextBox2.Text & "','" & TextBox7.Text & "','" & TextBox5.Text & "','" & TextBox6.Text & "','" & TextBox7.Text & "')"
'أذا كان الأتصال مفتوح نقوم بأغلاقه
If conn.State = ConnectionState.Open Then conn.Close()
'نفتح الأتصال
conn.Open()
'تنفيذ الأضافة
cmd.ExecuteNonQuery()
If cmd.ExecuteNonQuery() = True Then
MsgBox("thr requist succsefuly added")
End If
'اغلاق الأتصال
conn.Close()
'حدثان ملئ الليست بوكس ومربعات النصوص
filllistbox()
filltext()
'أصطياد الخطأ أن وجد وأظهاره في رسالة
Catch ex As OleDbException
MessageBox.Show(ex.Message)
End Try
'..............................................................................
Else
'أذا لم يتم ملئ مربعات النص تظهر هذه الرسالة
MsgBox("please enter requierd * information")
End If
End Sub
End Class
الله يوفق اللي يساعدني دنـــــيآآآآ واخرررره ياااااااارب
البرنامج موجود بالمرفقات ..ملاحظه الفيجوال المستخدم 2010