[ تمت الإجابة ]مشكله في الحفظ

لا تستخدم عبارة + بل &

+ تستخدم لدمج نص أو جمع رقم

الخطاء

+ textbox1.text +

التصحيح

& textbox1.text &

جربت اخوي لكن ما نفع

ارجو الافاده

سطر الزيادة غير كامل في الصورة, المرجو إرسال الكود كي يتمكن الأعضاء من دراسته و إجابتك.

Imports System.Data.OleDb
ــــــــــــــــــــــــــــــــــــــــــــــــــــــ
Public Class user

Dim con As New OleDb.OleDbConnection

Dim dataReader As OleDb.OleDbDataReader

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

con.ConnectionString = ("provider=Microsoft.jet.oledb.4.0;data source=c:\aymanKO\data.mdb")

con.Open()

End Sub

ــــــــــــــــــــــــــــــــــــــــــــــ

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

Dim str1 As String

str1 = "select * from users where no =" + TextBox1.Text

Dim com As New OleDbCommand(str1, con)

dataReader = com.ExecuteReader()

dataReader.Read()

If dataReader.HasRows = False Then

Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)

If res = 6 Then

str1 = "insert into users (no,name,login,password) values (" + TextBox1.Text + ",'" + TextBox2.Text + "','" + TextBox3.Text + "'," + TextBox4.Text + ")"

Dim com1 As New OleDbCommand(str1, con)

com1.ExecuteNonQuery()



End If

Else

MsgBox("هذا المستخدم موجود سابقاْ")

End If

End Sub

هذا هو الكود مع الربط مع قاعدة البيانات

str1 = "insert into users (no,name,login,password) values (" + TextBox1.Text + ",'" + TextBox2.Text + "','" + TextBox3.Text + "','" + TextBox4.Text + "')"

كلمة المرور يجب أن تكون نصا هي الأخرى و ليس عددا. لقد نسيت ' حول TextBox4.Text.

Dim con As New OleDb.OleDbConnection
		con.ConnectionString = ("provider=Microsoft.jet.oledb.4.0;data source=c:\db1.mdb")
		con.Open()
		Dim str1 As String
		str1 = "select * from users where [name1] ='" & TextBox1.Text & "'"
		Dim com As New OleDbCommand(str1, con)
		Dim dataReader As OleDb.OleDbDataReader
		dataReader = com.ExecuteReader()
		dataReader.Read()
		If dataReader.HasRows = False Then
			Dim res = MsgBox("هل ترغب بالتأكيد في حفظ بيانات المستخدم الجديد", MsgBoxStyle.YesNo)
			If res = 6 Then
				str1 = "INSERT INTO users (name1,password1,no4,login5)" & _
				"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "','" & TextBox4.Text & "')"
				Dim com1 As New OleDb.OleDbCommand(str1, con)
				com1.ExecuteNonQuery()
			End If
		Else
			MsgBox("هذا المستخدم موجود سابقاْ")
		End If

بسم الله الرحمن الرحيم

هذا هو الكود مجرب وشغال 100%100

والخطأ هو استخدم كلمات محجوزة لو لحضت اني غيرت في مثلاً الاسم والباسوورد ضع زيادة عليها شرطة ورقم أو حرف لانها كلمات محجوزة لاحظ جملة الاضافة جيداً

اخي السائل كما قال لك الاخ الساهر 24 انت استخدمت كلمات محجوزة

وانا لي تجارب سابقة في مثل هذا الخطأ الغير منطقي ؟

اهنئ الاخ الساهر على اكتشافه الخطأ و الانتباه اليه

مشكور يا اخوي الساهر

اشتغل الكود تمام الله يعطيك الصحه والعافيه