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

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


الملفات المرفقة
.rar   HR project.rar (الحجم : 381.49 ك ب / التحميلات : 20)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 15)
الرد }}}}
تم الشكر بواسطة:
#9
اخ سامي و hminfo مشكوووووووووووورين كتييييييييييير على مجهودكم راح اجربوا عندي هلا يسلموا كتييييير غلبتكم معي Smile
الرد }}}}
تم الشكر بواسطة:
#10
اخ hminfo مشكووووور كتييييير على مساعدتك بالنسبة لشاشة دخول المستخدم نفذ عندي وتمام يسلمو اديك يارب
بس بالنسبه للإضافة مستخدم جديد بعطيني هاي المشكله

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

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


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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] مشكلة في حفظ بيانات من الجدولين dark1459 8 79 منذ 4 ساعة مضت
آخر رد: dark1459
  مشكلة في اجبار المستخدم ان يحفظ صورة في قاعدة بيانات shado1796 96 6,236 أمس, 04:03 AM
آخر رد: khodor1985
  [VB.NET] مشكلة المسارات Fantastico 1 49 24-02-17, 12:40 PM
آخر رد: Master Hacker
  مشكلة ف الحفظ والتعديل بعد تحويل المشروع لملف تنفيذي apo yousef 3 89 23-02-17, 12:28 PM
آخر رد: ssayed111
  مشكلة في عرض النص بالعربي في #Region فقط ali.alfoly 1 76 22-02-17, 02:50 AM
آخر رد: مساعدة
  ار جو المساعدة ما هي مشكلة كود التعديل والحذف boofa2015 2 57 21-02-17, 10:58 AM
آخر رد: boofa2015
  [VB.NET] مشكلة في كيفية اعادة الاتصال في TcpClient YazanOtoum 1 60 20-02-17, 01:03 PM
آخر رد: YazanOtoum
  [VB.NET] كيفية حل مشكلة Global.[String] فى ملف Settings.Designer.vb الماجيك مسعد 2 62 20-02-17, 03:08 AM
آخر رد: الماجيك مسعد
  [VB.NET] مشكلة في حدف صورة من مسار بمجلد بالكمبيوتر ناصر شير 6 120 18-02-17, 02:37 PM
آخر رد: ناصر شير
  [سؤال] حل مشكلة برنامج لتغير التاريخ عبدالرحمن المكاوي 6 145 17-02-17, 11:19 PM
آخر رد: EnormousSoft

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


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