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

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


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

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

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


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



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


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