12-02-18, 05:38 PM
السلام عليكم
عايز اعمل اضافة بيانات فى قاعدة البيانات فى خطاء
المشروع فى المرفقات الباص الخاص بالقاعدة 01207600205
مساعدة فى اكواد قواعد البيانات
|
12-02-18, 05:38 PM
السلام عليكم
عايز اعمل اضافة بيانات فى قاعدة البيانات فى خطاء
المشروع فى المرفقات الباص الخاص بالقاعدة 01207600205
12-02-18, 06:01 PM
احذف dbpass &
تم الشكر بواسطة: عبد العزيز البسكري
12-02-18, 06:22 PM
خطاء تانى
12-02-18, 06:24 PM
اسم الجدول في الاستعلام خطأ
12-02-18, 06:56 PM
(آخر تعديل لهذه المشاركة : 12-02-18, 07:44 PM {2} بواسطة MOSTAFA.KAMEL.)
13-02-18, 01:47 AM
cmd.commandtext= ("iinsert Into app ([empname]),([empass]),([empnum]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"
جرب هادا أخي ان شاء الله راح يزبط معك وازا ما زبط معك جرب هادا الكود Try Dim Savecommand As New OleDb.OleDbCommand Dim newconnection As New OleDbConnection(Connectionstring) Savecommand.Connection = newconnection Savecommand.CommandType = CommandType.Text Savecommand.CommandText = "insert into " newconnection.Open() Savecommand.ExecuteNonQuery() newconnection.Close() MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح", 64, "حفظ الاضافة") Catch ex As Exception MsgBox(ex.Message, 16, "خطأ") End Try تم الشكر بواسطة: MOSTAFA.KAMEL
13-02-18, 01:54 AM
(13-02-18, 01:47 AM)spoony كتب : cmd.commandtext= ("iinsert Into app ([empname]),([empass]),([empnum]) values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "')"تمام ياخى انا حليت المشكلة بس عايز كود مثلا لو السريال او الرقم الى مكتوبة فى ال textbox صح وموجودة فى قاعدة البيانات البرنامج يفتح مش موجودة يطلع رسالة خطاء
تفضل اخي نفس المتغيرات وكل شي بس ما عليك الا تغيير ألآتصال والبيانات الداتا بيز طبعا هادا يوزر نيم والباسورد نفس الشي ازا بدك تكست واحد بس مو ثنين خلي واحد اكيد فهمت الطريقة حضرتك
Dim DbCon As New OleDb.OleDbConnectio Dim dbUp As New OleDb.OleDbCommand Dim Read As OleDb.OleDbDataReader Private Sub Ok_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click DbCon.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Users\User\Desktop\Database.mdb" DbCon.Open() dbUp.Connection = DbCon dbUp.CommandType = CommandType.Text dbUp.CommandText = "Select * from LOGIN where Username=yes and Password=no " dbUp.Parameters.Add("Username", Data.OleDb.OleDbType.Variant) dbUp.Parameters.Add("Password", Data.OleDb.OleDbType.Variant) dbUp.Parameters("Username").Value = UsernameTextBox.Text dbUp.Parameters("Password").Value = PasswordTextBox.Text Read = dbUp.ExecuteReader With Read If .Read Then Me.Hide() Form2.Show() Else UsernameTextBox.Clear() PasswordTextBox.Clear() MessageBox.Show("Invalid Username or Password") UsernameTextBox.Focus() End If End With هاي كمان طريقة استخدمها في حالة الآولى ما فهمتها نفس الشي بس غير المضمون والحدث الي بدك اياه Dim uname As String = "" Dim pword As String Dim username As String = "" Dim pass As String If TextBox1.Text = "" Or TextBox2.Text = "" Then MsgBox("Plz Fill All the info") Else uname = TextBox1.Text pword = TextBox2.Text Dim querry As String = "Select password From Table1 where name= '" & uname & "';" Dim dbsource As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=C:\Users\siddh\Documents\Database2.accdb" Dim conn = New OleDbConnection(dbsource) Dim cmd As New OleDbCommand(querry, conn) conn.Open() Try pass = cmd.ExecuteScalar().ToString Catch ex As Exception MsgBox("Username does not exit") End Try If (pword = pass) Then MsgBox("Login success") Form2.Show() If Form2.Visible Then Me.Hide() End If Else MsgBox("login Failed") TextBox1.Clear() TextBox2.Clear() End If End If
13-02-18, 02:27 AM
(13-02-18, 02:10 AM)spoony كتب : تفضل اخي نفس المتغيرات وكل شي بس ما عليك الا تغيير ألآتصال والبيانات الداتا بيز طبعا هادا يوزر نيم والباسورد نفس الشي ازا بدك تكست واحد بس مو ثنين خلي واحد اكيد فهمت الطريقة حضرتك مش شغال حضرتك الجدول عندى اسمو log موجود فى id - serial بس السريالات بتبقى جوه القاعدة تمام هو بيطلب منى سريال تمام يكتبها فى التكست بوكس والبرنامج يشوف هل هى مطابقة والا بس |
|
المواضيع المحتمل أن تكون متشابهة . | |||||
الموضوع : | الكاتب | الردود : | المشاهدات : | آخر رد | |
[VB.NET] مساعدة في تقرير | mrfenix93 | 1 | 41 |
24-03-24, 10:29 PM آخر رد: mrfenix93 |
|
مساعدة | jalaltech | 1 | 95 |
07-03-24, 07:38 PM آخر رد: قناص المدينة |
|
[VB.NET] مساعدة فى كود فاتورة اللكترونية | asdfar1977 | 2 | 194 |
02-03-24, 02:00 AM آخر رد: asdfar1977 |
|
مساعدة فى كود فاتورة الكترونية | asdfar1977 | 0 | 80 |
29-02-24, 07:14 PM آخر رد: asdfar1977 |
|
[VB.NET] حل مشكلة الاتصال بقواعد البيانات access | loay775 | 2 | 158 |
25-02-24, 06:29 AM آخر رد: loay775 |
|
مساعدة | jalaltech | 0 | 133 |
17-02-24, 02:15 AM آخر رد: jalaltech |
|
سؤال عن عملية حذف سجل من قاعدة البيانات | assuhimi | 3 | 249 |
11-02-24, 08:43 PM آخر رد: assuhimi |
|
طلب مساعدة | AHMED213 | 3 | 323 |
06-02-24, 09:39 PM آخر رد: AHMED213 |
|
امثلة و اكواد ربما تفيدك | AHMED213 | 0 | 190 |
04-02-24, 11:07 PM آخر رد: AHMED213 |
|
[VB.NET] طلب مساعدة | AHMED213 | 0 | 221 |
31-01-24, 12:56 AM آخر رد: AHMED213 |