[VB.NET] مساعده في حل مشكلة ببرنامج vb.net - نسخة قابلة للطباعة +- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb) +-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182) +--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183) +--- الموضوع : [VB.NET] مساعده في حل مشكلة ببرنامج vb.net (/showthread.php?tid=11109) الصفحات:
1
2
|
مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 07-01-15 مساء الخير ... انا مشتركه جديد في المنتدى ,, حبيت اعمل مشروع صغير باستخدام الفيجوال بيسك وبدأت في واجهة المستخدم ولكن يوجد خطأ ولا اعرف ما هو الحل ؟ البرنامج موجود ضمن المرفقات . اتمنى المساعده RE: مساعده في حل مشكلة ببرنامج vb.net - raoe-041 - 08-01-15 شو هو الخطأ ................ RE: مساعده في حل مشكلة ببرنامج vb.net - برير مسبل - 08-01-15 بالله عليك وضحك اكثر الخطا فين RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 08-01-15 بصراحه انا ما بعرف وين المشكله لانو ما بعطي خطأ,, بس لما بدي انفذ البرنامج بعطيني متل ما هو باين في الصورة وخصوصا لما اضغط على SingUp وانتقل لشاشاه إضافة مستخدم جديد بعطي متل ما هو في الصورة ,, فشو هو السبب مش عارفه وعلى ما اعتقد انو في ربط قاعدة البيانات . ممكن تساعدوني بحلها ؟ وشكرا الكم RE: مساعده في حل مشكلة ببرنامج vb.net - sami2015 - 08-01-15 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 RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 08-01-15 اخ سامي مشكور على مساعدتك ,,بس بصراحه ما زبطت معي ,, في مجال تعدلي ياه على نفس المرفق :$ بعد إزنك ؟ RE: مساعده في حل مشكلة ببرنامج vb.net - sami2015 - 09-01-15 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 RE: مساعده في حل مشكلة ببرنامج vb.net - hminfo - 09-01-15 تفضلي اختي المشروع معدل عليه RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 10-01-15 اخ سامي و hminfo مشكوووووووووووورين كتييييييييييير على مجهودكم راح اجربوا عندي هلا يسلموا كتييييير غلبتكم معي RE: مساعده في حل مشكلة ببرنامج vb.net - ghaida sultan - 10-01-15 اخ hminfo مشكووووور كتييييير على مساعدتك بالنسبة لشاشة دخول المستخدم نفذ عندي وتمام يسلمو اديك يارب بس بالنسبه للإضافة مستخدم جديد بعطيني هاي المشكله اخ سامي اذا ممكن سؤال ,,, لما تنفذ البرنامج بنفذ عندك لانو بصراحه عدلت على البرنامج وطلعلي نفس المشكله ؟ ويسلمو كتيييييييييير الك تعبتك معي ، مشكورين كتير |