Visual Basic

<br />
<br />
Private Declare Function method Lib "C:\Documents and Settings\CSfiles\interop\interop\bin\Debug\interop.dll" Alias "interopdll" (ByVal X As Integer, ByVal X As Integer)<br />
<br />
Private Sub Command1_Click()<br />
<br />
Dim a As Integer<br />
Dim obj As Object<br />
<br />
obj = New sample ' I get a compile-time error for undefined user type here.<br />
<br />
a = obj.method(CInt(Text1.Text), CInt(Text2.Text))<br />
Label1.Caption = CStr(a)<br />
<br />
End Sub<br />
<br />

<br />
<br />
using System;<br />
using System.Runtime.InteropServices;<br />
using System.Reflection;<br />
<br />
[assembly: ComVisible(true)]<br />
namespace interop<br />
{<br />
/// <summary><br />
/// Summary description for Class1.<br />
/// </summary><br />
<br />
[ClassInterface(ClassInterfaceType.AutoDual)]<br />
<br />
[GuidAttribute("6CE9C732-CD90-4042-A5F0-CF71DFAC2598")]<br />
<br />
class sample<br />
{<br />
public sample()<br />
{<br />
}<br />
public int c;<br />
<br />
public void method(int a, int b)<br />
{ <br />
c = a+b;<br />
//return c;<br />
} <br />
}<br />
}<br />
<br />

Public ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _<br />
"Data Source =" & Application.StartupPath & "\ITDSS.mdb"<br />
    Public con As New OleDbConnection(ConStr)

<br />
  Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
        con.Open()<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "DELETE FROM [Section] WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")<br />
        InsertCommand1.ExecuteNonQuery()<br />
<br />
        'to delet all the slot for the deleted section<br />
        InsertCommand2.Connection = con<br />
        InsertCommand2.CommandText = "DELETE  FROM  Slot WHERE SectionID=" & ComboBox105.Text<br />
        InsertCommand2.CommandType = CommandType.Text<br />
        InsertCommand2 = InsertCommand2<br />
        Me.BindingContext(ds2, "Slot").EndCurrentEdit()<br />
        da2.Update(ds2, "Slot")<br />
        InsertCommand2.ExecuteNonQuery()<br />
        con.Close()<br />

con.Open()<br />
        Dim sql As String = "SELECT * FROM [Section]"<br />
        Dim sql2 As String = "SELECT * FROM Slot"<br />
        Dim da As New OleDbDataAdapter(sql, con)<br />
        Dim da2 As New OleDbDataAdapter(sql2, con)<br />
        Dim ds As New DataSet<br />
        Dim ds2 As New DataSet<br />
        da.Fill(ds, "Section")<br />
        da2.Fill(ds2, "Slot")<br />
        Dim InsertCommand1 As New OleDbCommand<br />
        Dim InsertCommand2 As New OleDbCommand<br />
<br />
<br />
        '---insrting section to section databace<br />
        InsertCommand1.Parameters.Clear()<br />
        InsertCommand1.Connection = con<br />
        InsertCommand1.CommandText = "INSERT INTO [Section] ([SectionID],[CourseID],[Type],[TeacherID],[joinedSection],[Group],[Capacity]) VALUES (?,?,?,?,?,?,?)"<br />
        InsertCommand1.CommandType = CommandType.Text<br />
        InsertCommand1 = InsertCommand1<br />
        Try<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(CType(TextBox46.Text, Integer)))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox99.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(ComboBox102.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(TextBox47.Text))<br />
            InsertCommand1.Parameters.AddWithValue("?", Trim(0))<br />
            da.InsertCommand = InsertCommand1<br />
            InsertCommand1.ExecuteNonQuery()<br />
        Catch ex As Exception<br />
            MsgBox(ex, , "Alert")<br />
        End Try<br />
        Me.BindingContext(ds, "Section").EndCurrentEdit()<br />
        da.Update(ds, "Section")

sectionsforupdate.Tables("Slot").Rows(i).Item(0) = slot<br />
sectionsforupdate.AcceptChanges()<br />