تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مساعده في حل مشكلة ببرنامج vb.net
#1
مساء الخير ...
انا مشتركه جديد في المنتدى ,, حبيت اعمل مشروع صغير باستخدام الفيجوال بيسك وبدأت في واجهة المستخدم ولكن يوجد خطأ ولا اعرف ما هو الحل ؟
البرنامج موجود ضمن المرفقات .

اتمنى المساعده Smile


الملفات المرفقة
.rar   HR project.rar (الحجم : 381.49 ك ب / التحميلات : 35)
الرد }}}}
تم الشكر بواسطة:
#2
شو هو الخطأ ................
..................  و فوق كل ذي علم عليم  ................
الرد }}}}
تم الشكر بواسطة:
#3
بالله عليك وضحك اكثر الخطا فين
الرد }}}}
تم الشكر بواسطة:
#4
بصراحه انا ما بعرف وين المشكله لانو ما بعطي خطأ,, بس لما بدي انفذ البرنامج بعطيني متل ما هو باين في الصورة وخصوصا لما اضغط على SingUp وانتقل لشاشاه إضافة مستخدم جديد بعطي متل ما هو في الصورة ,, فشو هو السبب مش عارفه وعلى ما اعتقد انو في ربط قاعدة البيانات . ممكن تساعدوني بحلها ؟

وشكرا الكم


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:
#5

Module1.vb
-----------------------------

Imports System.Data.OleDb
Module Module1
   Public con As New OleDbConnection
   Public Sub dbase_conn()
       If con.State = 1 Then con.Close()
       Dim mypath As String
       'mypath = CurDir() & "|DataDirectory|\users.accdb"
       mypath = "|DataDirectory|\users.accdb"
       'con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false.")
       con = New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source='" & mypath & "';persist security Info=false;")
       con.Open()

   End Sub
End Module

الرد }}}}
تم الشكر بواسطة:
#6
اخ سامي مشكور على مساعدتك ,,بس بصراحه ما زبطت معي ,, في مجال تعدلي ياه على نفس المرفق :$ بعد إزنك ؟
الرد }}}}
تم الشكر بواسطة:
#7

Add_User.vb
-----------------------------------

Imports System.Data.OleDb

Public Class Add_User
Dim save_cmd As New OleDbCommand
Dim edit_cmd As New OleDbCommand

Private Sub Add_User_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

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

'save_cmd = New OleDbCommand("insert into usersDataSet (user-name,pass-word) values ('" & Textname.Text & "'," & Textpass.Text & ")", con)
save_cmd = New OleDbCommand("INSERT INTO users ([user-name],[pass-word]) VALUES ('" & Textname.Text & "'," & Textpass.Text & ")", con)

If con.State = ConnectionState.Closed Then con.Open()
save_cmd.ExecuteNonQuery()
con.Close()

MsgBox("تم الحفظ بنجاح")
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
edit_cmd = New OleDbCommand("update users set user-name='" & Textname.Text & "',pass-word=" & Textpass.Text & "where user-name='" & Textname.Text & ")", con)
If con.State = ConnectionState.Closed Then con.Open()
edit_cmd.ExecuteNonQuery()
con.Close()

MsgBox("تم تعديل بنجاح")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Form1.Show()
Me.Close()

End Sub
End Class



-------------------------------------


Form1.vb
------------------------------

Imports System.Data.OleDb
Public Class Form1
Dim Adapt As New OleDbDataAdapter
Dim dt As New DataTable
Private Sub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()

End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
dbase_conn()
End Sub

Private Sub LinkLabel1_LinkClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs) Handles LinkLabel1.LinkClicked
Add_User.Show()
Me.Hide()

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Adapt = Nothing : dt.Clear()

'Adapt = New OleDbDataAdapter("Select ' from Users where user_name='" & TextBox1.Text & "'", con)
Adapt = New OleDbDataAdapter("SELECT * FROM Users WHERE [user-name]='" & TextBox1.Text & "' AND [pass-word]=" & TextBox2.Text, con)

Adapt.Fill(dt)

'If TextBox2.Text = dt.Rows.Item(0).Item("user-pass") Then
If dt.Rows.Count > 0 Then

Form2.Show()
Me.Hide()

Else
MsgBox("user name OR password incorrect")

End If

End Sub
End Class
الرد }}}}
تم الشكر بواسطة:
#8
تفضلي اختي المشروع معدل عليه


الملفات المرفقة
.rar   HR project.rar (الحجم : 343.24 ك ب / التحميلات : 29)
الرد }}}}
تم الشكر بواسطة:
#9
اخ سامي و hminfo مشكوووووووووووورين كتييييييييييير على مجهودكم راح اجربوا عندي هلا يسلموا كتييييير غلبتكم معي Smile
الرد }}}}
تم الشكر بواسطة:
#10
اخ hminfo مشكووووور كتييييير على مساعدتك بالنسبة لشاشة دخول المستخدم نفذ عندي وتمام يسلمو اديك يارب
بس بالنسبه للإضافة مستخدم جديد بعطيني هاي المشكله

اخ سامي اذا ممكن سؤال ,,, لما تنفذ البرنامج بنفذ عندك لانو بصراحه عدلت على البرنامج وطلعلي نفس المشكله ؟

ويسلمو كتيييييييييير الك تعبتك معي ، مشكورين كتير


الملفات المرفقة صورة/صور
   
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة اثناء تنفيذ المشروع ظاهر علي 2 57 منذ 7 ساعة مضت
آخر رد: aliday03
  مشكلة عند التعامل مع DevExpress آمل أن أجد لها حلًا أحمد إبراهيم سعد 9 176 منذ 7 ساعة مضت
آخر رد: aliday03
  [VB.NET] مشكلة معايا فى الTEXTBOX MOSTAFA.KAMEL 12 153 أمس, 10:45 PM
آخر رد: MOSTAFA.KAMEL
  مشكلة في حفظ الصورة Fantastico 3 76 أمس, 04:46 PM
آخر رد: Fantastico
  مشكلة الفورم الشفاف محمود صالح 5 181 أمس, 12:47 AM
آخر رد: Fantastico
  [سؤال] ما حل مشكلة تعارض Task مع Sleep؟ السندبااد 6 127 20-09-17, 02:49 PM
آخر رد: السندبااد
  مشكلة في قراءة قيمة من الريجستري سعود الشامان 12 183 19-09-17, 07:59 PM
آخر رد: سعود الشامان
  مساعده فى تعديل كود خاص بالتكست بوكس نبيل فتحى 1 34 19-09-17, 03:33 PM
آخر رد: أبو نوره
  جديد علي الفجول بيسك ...احتاج مساعده (اسعدكم الله جميعا) Abdulhadi 13 363 18-09-17, 05:57 PM
آخر رد: Abdulhadi
  [سؤال] مشكلة في حذف و تعديل بيانات DataGridView mohammed alnour 4 126 16-09-17, 01:01 AM
آخر رد: mohammed alnour

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم