تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] عدم تنفيذ برنامج مرتبط بقاعدة بيانات
#1
Exclamation 
سلام
تكفون شباب لي فتره وانا اعاني من هذه المشكله وما لقيت لها حل
تطلع العباره ذي ومعبأه بلون اصفر


()newConnection.Open


وما ادري ايش الحل والبرنامج ما فيه اي خطأ
جربت نزلت برامج شبيهه ورحت انفذ..... برضه نفس المشكله


تكفون شباب الرد بأقرب وقت
الرد }}}}
تم الشكر بواسطة:
#2

اللون الاصفر يعني خطأ

-ويش يقول الخطأ ؟؟

علما بأن هناك حالات كثيرة جدا لأخطأء قاعدة البيانات ، فالصق لنا الكود او المشروع

--

اذا قررت وضع الكود ، يرجى وضعه في وسم PHP او CODE

لان بصراحة انا ماقرأ الاكواد الي ملصقة مباشرة دون وضعها في وسم


الرد }}}}
تم الشكر بواسطة: kslawy , reyad
#3
You should close the connection after you're done using it in the method, not before. If the Open method still causes the exception, after moving the call to the Close method, you have a problem with your connection string.
Maybe you can show us the connectionstring and all of the data access code you use

Or try this
كود :
If newConnection.State = ConnectionState.Open Then newConnection.Close()
newConnection.Open()

RolleyesRolleyesRolleyes
{‏‏ يَرْفَعِ اللَّهُ الَّذِينَ آمَنُوا مِنكُمْ وَالَّذِينَ أُوتُوا الْعِلْمَ دَرَجَاتٍ‏ }

 " Mohamed M. Bedair     -     " Abu Anas
Genius Live , Egypt
الرد }}}}
تم الشكر بواسطة: reyad , Sajad
#4
شكرا لكم اخوتي الاعزاء
رحت نزلت لغة فيجوال 2013 قلت يمكن اللي عندي فيها خلل
والناتج كان هوا هوا لان البرنامج انا رح اعدل عليه واستخمه لمحل عملي ولما انتهي منه اوعدكم اننا ازله في هذا المنتدى الرائع
واليكم الكود كاملا
PHP كود :
Imports System.Data
Imports System
.Data.OleDb
Public Class Mainform
   
    Dim connectionstring 
As String "Provider=Microsoft.Jet.OLEDB.4.0;" "Data Source =" Application.StartupPath "\work.mdb"
    
Dim newConnection As New OleDbConnection(connectionstring)
    
Dim DataSet1 As New DataSet

    Dim SQLstr 
As String "SELECT *FROM tabb"

    
Private Sub Mainform_Load(ByVal sender As System.ObjectByVal e As System.EventArgsHandles MyBase.Load

        newConnection
.Open()


        
Dim DataAdapter1 As New OleDbDataAdapter(SQLstrnewConnection)

        
DataAdapter1.Fill(DataSet1"tabb")

        
newConnection.Close()




        
TextBox1.DataBindings.Add("Text"DataSet1"tabb.id")
        
TextBox2.DataBindings.Add("Text"DataSet1"tabb.ttody")
        
TextBox3.DataBindings.Add("Text"DataSet1"tabb.ddate"22)
        
TextBox4.DataBindings.Add("Text"DataSet1"tabb.b1")
        
TextBox5.DataBindings.Add("Text"DataSet1"tabb.b2")
        
TextBox7.DataBindings.Add("Text"DataSet1"tabb.b3")
        
TextBox8.DataBindings.Add("Text"DataSet1"tabb.b4")
        
TextBox9.DataBindings.Add("Text"DataSet1"tabb.b5")
        
TextBox10.DataBindings.Add("Text"DataSet1"tabb.b6")
        
TextBox11.DataBindings.Add("Text"DataSet1"tabb.b7")
        
TextBox12.DataBindings.Add("Text"DataSet1"tabb.b8")
        
TextBox13.DataBindings.Add("Text"DataSet1"tabb.b9")
        
TextBox14.DataBindings.Add("Text"DataSet1"tabb.pprint")
        
TextBox15.DataBindings.Add("Text"DataSet1"tabb.info")

        
showlistnumber()



    
End Sub


    
Public Sub showlistnumber()

        
Label7.Text Me.BindingContext(DataSet1"tabb").Position 1

        Label9
.Text Me.BindingContext(DataSet1"tabb").Count


    End Sub
    
Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button1.Click

        Me
.BindingContext(DataSet1"tabb").Position 0

        showlistnumber
()
    
End Sub

    
Private Sub Button4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button4.Click

        Me
.BindingContext(DataSet1"tabb").Position Me.BindingContext(DataSet1"tabb").Count 1

        showlistnumber
()
    
End Sub

    
Private Sub Button2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button2.Click

        Me
.BindingContext(DataSet1"tabb").Position += 1

        showlistnumber
()
    
End Sub

    
Private Sub Button3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button3.Click

        Me
.BindingContext(DataSet1"tabb").Position -= 1

        showlistnumber
()
    
End Sub

    
Private Sub Button7_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button7.Click
        
If MsgBox("هل تريد حذف السجل الحالي ؟"48 MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            
Exit Sub
        End 
If
        Try



            
Dim Savecommand As New OleDb.OleDbCommand

            Dim DataAdapter1 
As New OleDbDataAdapter(SQLstrnewConnection)


            
Savecommand.Connection newConnection
            Savecommand
.CommandType CommandType.Text

            Savecommand
.CommandText "DELETE FROM tabb WHERE id like '" TextBox1.Text "'"

            
newConnection.Open()


            
Savecommand.ExecuteNonQuery()

            
newConnection.Close()

            
DataSet1.Clear()

            
DataAdapter1.Fill(DataSet1"tabb")



            
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح"64"حذف سجل")


            
showlistnumber()

        Catch 
ex As Exception

            MsgBox
(ex.Message)

        
End Try

    
End Sub

    
Private Sub Button6_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button6.Click

        newlist
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub Button5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button5.Click

        Dim edit 
As New editform


        edit
.TextBox1.Text Me.TextBox1.Text
        edit
.TextBox2.Text Me.TextBox2.Text
        edit
.TextBox3.Text Me.TextBox3.Text
        edit
.TextBox4.Text Me.TextBox4.Text
        edit
.TextBox5.Text Me.TextBox5.Text
        edit
.TextBox7.Text Me.TextBox7.Text
        edit
.TextBox8.Text Me.TextBox8.Text
        edit
.TextBox9.Text Me.TextBox9.Text
        edit
.TextBox10.Text Me.TextBox10.Text
        edit
.TextBox11.Text Me.TextBox11.Text
        edit
.TextBox12.Text Me.TextBox12.Text
        edit
.TextBox13.Text Me.TextBox13.Text
        edit
.TextBox14.Text Me.TextBox14.Text
        edit
.TextBox15.Text Me.TextBox15.Text


        edit
.Label6.Text Me.TextBox1.Text


        edit
.Show()

        
Me.Hide()


    
End Sub


    
Private Sub Button10_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button10.Click
       


        End

    End Sub

    
Private Sub Button11_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button11.Click

        searchform
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub Button12_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Button12.Click

        
If TextBox6.Text "" Then
            
Exit Sub



        
ElseIf Val(TextBox6.Text) > Me.BindingContext(DataSet1"tabb").Count Then
            MessageBox
.Show(" أدخلت رقما خاطئا")



        Else

            
Me.BindingContext(DataSet1"tabb").Position = (TextBox6.Text 1)


            
showlistnumber()

            
Label11.Text ""

        
End If
    
End Sub



    
Private Sub TextBox6_KeyPress(ByVal sender As System.ObjectByVal e As System.Windows.Forms.KeyPressEventArgsHandles TextBox6.KeyPress

        
If (Char.IsLetter(e.KeyChar) = TrueThen
            e
.Handled True


        
ElseIf Char.IsSymbol(e.KeyChar) = True Then
            e
.Handled True


        
ElseIf Char.IsPunctuation(e.KeyChar) = True Then
            e
.Handled True

        End 
If


    
End Sub

    
Private Sub Label3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles Label3.Click

    End Sub

    
Private Sub ToolStripButton2_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton2.Click
        newlist
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton3_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton3.Click
        
If MsgBox("هل تريد حذف السجل الحالي ؟"48 MsgBoxStyle.OkCancel) = MsgBoxResult.Cancel Then
            
Exit Sub
        End 
If
        Try



            
Dim Savecommand As New OleDb.OleDbCommand

            Dim DataAdapter1 
As New OleDbDataAdapter(SQLstrnewConnection)


            
Savecommand.Connection newConnection
            Savecommand
.CommandType CommandType.Text

            Savecommand
.CommandText "DELETE FROM tabb WHERE id like '" TextBox1.Text "'"

            
newConnection.Open()


            
Savecommand.ExecuteNonQuery()

            
newConnection.Close()

            
DataSet1.Clear()

            
DataAdapter1.Fill(DataSet1"tabb")



            
MsgBox("تمت عملية الحذف في قاعدة البيانات بنجاح"64"حذف سجل")


            
showlistnumber()

        Catch 
ex As Exception

            MsgBox
(ex.Message)

        
End Try

    
End Sub

    
Private Sub ToolStripButton4_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton4.Click
        Dim edit 
As New editform


        edit
.TextBox1.Text Me.TextBox1.Text
        edit
.TextBox2.Text Me.TextBox2.Text
        edit
.TextBox3.Text Me.TextBox3.Text
        edit
.TextBox4.Text Me.TextBox4.Text
        edit
.TextBox5.Text Me.TextBox5.Text
        edit
.TextBox7.Text Me.TextBox7.Text
        edit
.TextBox8.Text Me.TextBox8.Text
        edit
.TextBox9.Text Me.TextBox9.Text
        edit
.TextBox10.Text Me.TextBox10.Text
        edit
.TextBox11.Text Me.TextBox11.Text
        edit
.TextBox12.Text Me.TextBox12.Text
        edit
.TextBox13.Text Me.TextBox13.Text
        edit
.TextBox14.Text Me.TextBox14.Text
        edit
.TextBox15.Text Me.TextBox15.Text


        edit
.Label6.Text Me.TextBox1.Text


        edit
.Show()

        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton5_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton5.Click
        searchform
.Show()
        
Me.Hide()
    
End Sub

    
Private Sub ToolStripButton1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandles ToolStripButton1.Click
        End
    End Sub
End 
Class 

    [attachment=958][attachment=958]


    اليكم الصوره

    لما طبقت تعليمات الاخ Genius Live
كان الناتج كما في هذه الصوره , اي اخطاء اكثر
الرد }}}}
تم الشكر بواسطة:
#5
اخوتي الله يرضى عليكم


تكفون شباب شوفوا الحل
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

اخي العزيز قم بتغيير الـTarget CPUمن x64 الى x86 من خصائص المشروع

تحياتي
الرد }}}}
تم الشكر بواسطة: reyad


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  ابي اربط برنامجي بسيرفر او قاعده بيانات مبارك 3 183 22-11-16, 02:57 PM
آخر رد: مبارك
  [سؤال] اريد البدء في عمل برنامج متابعه مديونيات ولا اعرف كيف ابداء مروة الشرقاوي 4 104 07-11-16, 04:07 AM
آخر رد: مروة الشرقاوي
  [سؤال] كيفية اضافة عناصر عمود فى جدول من قاعدة بيانات فى جدول اخر hidn 1 173 04-11-16, 09:25 AM
آخر رد: thevirus
  [سؤال] قراءة رابط من قاعدة بيانات في ادة التصفح شمس الدين 03 2 84 27-10-16, 10:43 PM
آخر رد: شمس الدين 03
  كيفية الاتصال بقاعدة بيانات Access على الشبكة المحلية warda saeed 7 7,236 27-10-16, 09:53 PM
آخر رد: thevirus
  ربط قاعدة بيانات اكسس بفجوال دوت نت 2015 كنونو 0 125 26-09-16, 01:35 PM
آخر رد: كنونو
Lightbulb [سؤال] كيف يتم رفع قاعدة بيانات mysql بطريقة برمجية sanosi 0 129 26-08-16, 05:00 PM
آخر رد: sanosi
  [سؤال] مساعدة في حفظ بيانات من جدولين mosasaad 5 268 22-08-16, 10:25 AM
آخر رد: سعود
  [VB.NET] مشكله عند الحفظ على قاعدة بيانات باستخدام Data Source وقاعدة بيانات اكسس2007 coderarab 7 368 24-07-16, 06:26 PM
آخر رد: سعود
  كيف يتم ربط قاعدة بيانات مع موقع ؟ ابراهيم حورس 1 219 10-07-16, 02:00 AM
آخر رد: boudyonline

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم