اين الخطأ في هذا الكود ؟

#122 يناير 2012 في 22:34 صاحب الموضوع

السلام عليكم

انا اعمل على برنامج صغير جدا .. وهو حفظ القيم المدخله في تكست بوكس داخل قاعده البيانات

بالاضافة الى الحذف ..

لكن قمت بعمل كود الحفظ وتعريف الاتصال بالقاعده .. ولم يعمل البرنامج

قاعدة البيانات /

إسم القاعده :data1

اسم الجدول :datadata

اسم الحقل المراد حفظ القيم داخله : blah

الفورم /

عبارة عن تكست بوكس - زر

الكود

اقتباس
Imports System.Data.OleDb
Public Class Form1
Dim Cn As New OleDbConnection
Dim Cmd As New OleDbCommand
Dim RAD As OleDbDataReader
Dim Str As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Str = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=data1.mdb"
(Cn.ConnectionString = (Str
() Cn.Open
'إعـداد زر الأمـر
Cmd.CommandType = CommandType.Text
Cmd.Connection = Cn
End Sub

يتبع

اقتباس
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Savecommand As New OleDb.OleDbCommand
_&"( Savecommand.CommandText = "INSERT INTO datadata(blah
"values ('" & TextBox1.Text & "') "
If Trim(TextBox1.Text) = "" Then
MsgBox("Pls write something", MsgBoxStyle.MsgBoxRight, "Empty")
Else
Try
() Cmd.Connection.Close
"'(" & Cmd.CommandText = "Insert Into TabUsers Values('" & TextBox1.Text
() Cmd.Connection.Open
() Cmd.ExecuteNonQuery
, "تـم الحـفظ") MsgBox(" saved", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight
Catch ex As Exception
End Try
End if
End Sub
End Class

آرجوا اعلامي اين الخطاء في الكود ؟

تم تعديل هذه المشاركة بواسطة RANDOOM في 22 يناير 2012 في 22:36

#223 يناير 2012 في 00:35

انتي فقط تحتاجي لمراجعة الكود وترتيب الاوامر

انتي تقومي باستدعاء () Cmd.ExecuteNonQuery

بل من Savecommand.ExecuteNonQuery

وهذا احد الاخطاء واهمها

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

#323 يناير 2012 في 01:41

قلت (احد الأخطاء) .. هل هناك اخطاء اخرى ممكن ان تفيدني بها ؟ :)

وشكرآآ لك :)

#423 يناير 2012 في 02:28

انتي تستخدمي عناصر في الكود غير مطلوبة وترتيب الاحداث واماكنها في البرنامج

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

#524 يناير 2012 في 01:04

هل بإمكانك اعاده صياغه الكود ؟

وشكرا :)

#627 يناير 2012 في 23:59

HELP :blink:

#728 يناير 2012 في 02:24

علي المحاوله ونحن معكي كودك يحتاج نظرتك لكي تعرفي اين الافضل

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

#827 فبراير 2012 في 17:53

حاولت لكن نفس الحآله .. عند الضفط على الزر .. لا يحدث شيء ..

آرجوا المساعدة :wacko:

#928 فبراير 2012 في 01:10

جربي هذا الكود

Imports System.Data.OleDb
Public Class Form1

Dim Cn As New OleDbConnection
Dim Cmd As New OleDbCommand

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Cn.ConnectionString= "Provider=Microsoft.Jet.OLEDB.4.0;Data source=data1.mdb"

'إعـداد زر الأمـر
Cmd.Connection = Cn
Cmd.CommandType = CommandType.Text
End Sub

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

If Trim(TextBox1.Text) = "" Then
	MsgBox("Pls write something", MsgBoxStyle.MsgBoxRight, "Empty")
Else
Try
	Cmd.CommandText = "Insert Into TabUsers Values('" & TextBox1.Text & "')"
	Cmd.Connection.Open
	Cmd.ExecuteNonQuery
	Cmd.Connection.Close()

	MsgBox(" saved", MsgBoxStyle.Information + MsgBoxStyle.MsgBoxRight, "تـم الحـفظ") 
Catch ex As Exception
	MsgBox(EX.MESG)
End Try

End if

End Sub
End Class

سبحانه الله وبحمده سبحانه الله العظيم

if (You Love ArabTeam2000 ) MessageBox.Show("All ArabTeam2000 Love You"); else MessageBox.Show("go to your mama");

Make it run, make it right, make it fast, make it small

normalize your data and don't make it look like excel sheet

الأبداع في الرأس والعلم في الكراس
روابط مفيدة
[دروس] تجاهل الwhere
طريقة الاضافة للجدولين مرتبطين مرة واحدة
قراءة صوره من مسار
حل مشكلة الارقام العربي في الكريستال ريبورت
حل مشكلة تصدير OLE Object الي Physical File مرة أخري
كود عمل نسخة يومية من قاعدة البيانات بتاريخ مع حذف النسخة السابقة من 30 يوم مضي
معظم دوال التعامل مع string
Change Data Capture
SQL Course
string-format-datetime
LINQ to SQL in C#
Sum-of-previous-row-values-in-SqlServer
alarm-for-stop-agent-service
SQL Server CTE

اين الخطأ في هذا الكود ؟

مواضيع مشابهة