[alsalamoni]

(17-02-20, 10:23 PM)freehego كتب :

(17-02-20, 03:43 AM)asemshahen5 كتب : قاعدة البيانات التي في المرفقات معطوبة يرجى اعادة رفعها الاكسيس عندي 2007 .

القاعدة مش معطوبة هى معمولة بأكسس 2010 وعموما أعيد رفعها تانى

ComSys.rar

كود :

Sub AlterTableX()
   Dim da As New OleDbDataAdapter("select (en_sal_band_part + ' ' + 'int') from sal_band", con)
   Dim dt As New DataTable
   da.Fill(dt)
   Dim lst As New List(Of String)
   For Each r As DataRow In dt.Rows
       lst.Add(r(0))
   Next
   Dim feilds = String.Join(",", lst)
   If con.State <> ConnectionState.Open Then con.Open()
   Dim cmd As New OleDbCommand("ALTER TABLE Emp_Sal ADD " & feilds, con)
   cmd.ExecuteNonQuery()
   con.Close()
   cmd = Nothing
   MsgBox("تم إضافة الشهر الجديد بنجاح", MsgBoxStyle.Information, "نجاح")
End Sub