تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] سؤال عن امكانية ربط الفيجوال بقاعدة علي الانترنت - وعن طريقه فتحه - وعدة اسأله اخرى MohamedAllam 5 232 23-07-17, 12:53 PM
آخر رد: MohamedAllam
  تضمين قاعدة بيانات MySQL مع الرنامج Jounior_P 8 243 19-07-17, 01:58 PM
آخر رد: Jounior_P
Question [سؤال] كيف يتم تشغيل قاعدة بيانات SQL SERVER دون تنصيب MS SQL SERVER alimoi79 1 165 16-07-17, 02:56 AM
آخر رد: ابو ليلى
  [كود] المساعدة في كود بحث برقم التسلسل اذا كان الرقم غير موجود داخل قاعدة بيانات تخرج رسالة وادي العوضي 3 152 14-07-17, 09:43 AM
آخر رد: وادي العوضي
  مشكله فى Load الخاص بفورم متصل بقواعد بيانات... للخبراء نبيل كونكت 0 70 08-07-17, 07:50 AM
آخر رد: نبيل كونكت
  حفظ بيانات اكثر من سجل من خلال DataGrideView abuyazan 4 903 02-06-17, 11:28 PM
آخر رد: الراشيدي
  [سؤال] كيفية حفظ ملف pdf في قاعدة بيانات sql abid 5 5,735 10-05-17, 03:13 PM
آخر رد: safalo
  مل نسخة احتياطية لقاعدة بيانات sql server djelloul 2 234 10-05-17, 12:49 PM
آخر رد: djelloul
  المساعدة في عمل استعلام قاعدة بيانات sqlserver djelloul 0 183 17-04-17, 07:13 PM
آخر رد: djelloul
  [C#.NET] طلب طريقة الاتصال بقاعدة بيانات firebase Riad dz 0 149 10-04-17, 09:56 PM
آخر رد: Riad dz

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


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