السلام عليكم ورحمة الله وبركاته
اخوانى انا اريد مساعدة صغير جدا جدا
الا وهو وتعديل فى كود البحث فقط
فى
asp vb.net
==================
القصة وما فيها ان الكود بيعمل فى الفيجوال بيسك دوت نت فقط
ومش بيعمل فى
asp .net (web)
فرجاء التعديل ان امكن وجزاكم الله كل خير
واليكم الكود
Imports System.Data
Imports System.Data.SqlClient
Public Class Form1
Dim ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\يييييي\1\ff.mdb"
Dim Conn As New OleDbConnection(ConStr)
Dim DataSet1 As New DataSet
Dim SQLstr As String
'SQLstr = "SELECT * FROM Table1 WHERE un LIKE '%" & x & "%'"
SQLstr = "SELECT * FROM Table1 WHERE un = '" & TextBox1.Text & "'"
Conn.Open()
Dim DataAdapter1 As New OleDbDataAdapter(SQLstr, Conn)
DataAdapter1.Fill(DataSet1, "Table1")
Conn.Close()
If Me.BindingContext(DataSet1, "Table1").Count = 0 Then
searshh()
MsgBox("تمت التسجيل بنجاح ")
frmmean.Show()
Me.Visible = False
Exit Sub
Else
MsgBox("اسم المستخدم موجود مسبقا ")
End If
Public Sub searshh()
Try
Dim SavInto As New OleDb.OleDbCommand
Dim constr As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\ثثثثث-pc\1\ff.mdb"
Dim Conn As New OleDbConnection(constr)
SavInto.Connection = Conn
SavInto.CommandType = CommandType.Text
SavInto.CommandText = "insert into Table1(un,pw,cpw)" & _
"values ('" & TextBox1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
Conn.Open()
SavInto.ExecuteNonQuery()
Conn.Close()
' MsgBox("تمت عملية الاضافة والحفظ في قاعدة البيانات بنجاح")
Catch ex As Exception
Exit Sub
End Try
End Sub
=============================================
الكود المكتوب مسيبقا معمول بالاكسس
ومش بال
sql serv
ده اولا
اما ثانيا
الكود كله صحيح وشغال وكمان لو انا كاتبته بالسيكول
لكن ال هو مش عايز يشتغل فى
asp.net
الجمله دى
-ال تحت
-
-
-
-
-
اقتباسIf Me.BindingContext(DataSet1, "Table1").Count = 0 Then
وياريت بعد انزنكم تكتبوها لى بطريقة السيكوال ومش بالاكسس
وكمان ساعتين ان شاء الله
هابعتلكم المشروع المعمول بالفيجوال بيسك دوت نت
