[فراس محي]

(13-04-22, 02:06 PM)Jounior_P كتب : اخي الفاضل :

نصحتك من قبل بتغيير اسم الجدول INPUT لأنه من الاسماء المحجوزة ....

مرة اخرى ... انصحك بتغيير اسم الجدول ثم التجربة

نفس المشكله استاذ غيرت اسمه وبقت نفس المشكله
ارجو حل مشكله الكود جربت كود غيره واشتغل تمام بس المشكله عندما لاتكون هناك قيمه مشابه لايضهر رساله ان الرصيد صفر وهذا الكود 

PHP كود :

Imports System.Data
Imports System.Data.OleDb
Public Class Form1

    Public constr As String = " provider = microsoft.ace.oledb.12.0;" & "data source = " & Application.StartupPath & "\md.accdb"
    Dim con As New OleDbConnection(constr)
    Dim sqlstr As String = "select * from [input]"


    Dim ds, ds1 As New DataSet
    Dim bind, bind1 As New BindingSource
    Dim da, da1 As OleDbDataAdapter


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

        fill_comb()


    End Sub


    Sub fill_comb()
        con.Open()
        'TextBox1.Text = ""
        ds.Clear()
        Dim da As New OleDbDataAdapter(sqlstr, con)
        da.Fill(ds, "input")
        con.Close()
        ComboBox1.DataSource = ds.Tables("input")
        ComboBox1.DisplayMember = "dic2"
        ComboBox1.ValueMember = "dec1"

    End Sub


    Sub bindtexts()

        TextBox1.DataBindings.Add(New Binding("Text", ds.Tables("input"), "dec3"))
            TextBox2.DataBindings.Add(New Binding("Text", ds.Tables("input"), "dec2"))
            TextBox3.DataBindings.Add(New Binding("Text", ds1.Tables("output"), "tuy"))


    End Sub

    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged

    End Sub

    Private Sub ComboBox1_SelectionChangeCommitted(sender As Object, e As EventArgs) Handles ComboBox1.SelectionChangeCommitted
        'bind = New BindingSource(ds, "input")

        bindtexts()

    End Sub

    Private Sub ComboBox1_Click(sender As Object, e As EventArgs) Handles ComboBox1.Click
        TextBox1.DataBindings.Clear()
        TextBox2.DataBindings.Clear()
        TextBox3.DataBindings.Clear()
        Dim sqlstr1 As String = "select * from [output] where mohy = '" + ComboBox1.Text + "' "

        con.Open()
            'TextBox1.Text = ""
            ds1.Clear()
            Dim da1 As New OleDbDataAdapter(sqlstr1, con)
            da1.Fill(ds1, "output")
            con.Close()

    End Sub

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged

    End Sub


End Class