Visual Basic

<br />
Namespace My<br />
    Partial Friend Class MyApplication<br />
<br />
        Private Sub MyApplication_Startup(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupEventArgs) Handles Me.Startup<br />
            Try<br />
                msgbox(e.CommandLine(0))<br />
            Catch<br />
<br />
            End Try<br />
        End Sub<br />
<br />
        Private Sub MyApplication_StartupNextInstance(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.StartupNextInstanceEventArgs) Handles Me.StartupNextInstance<br />
            e.BringToForeground = True<br />
            Try<br />
                msgbox(e.CommandLine(0))<br />
            Catch<br />
<br />
            End Try<br />
<br />
        End Sub<br />
<br />
    End Class<br />
End Namespace<br />

Public Declare Function DeviceOpen Lib "PLXAPI.DLL" _
    Alias "PlxPciDeviceOpen" ( _
    ByRef Device As PCIDevice, _
    ByVal PCIDevHandle As IntPtr) As Integer

Brad6ft4 wrote:

quite innapropriate (over kill to say the least).

Brad6ft4 wrote:

I simply want to check if a row has changed or not.

Imports System.data
Partial Class VergaderingWijzigen
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If Not Page.IsPostBack() Then
            fillDropDownList()
            Dim key() As String = {"agendaPuntId"}
            gvAgendaPunten.DataKeyNames = key
            gvAgendaPunten.Visible = False
        Else
            gvLeden.DataBind()
        End If
    End Sub
    Private Property loadDataEmpty()
        Get
            Return CType(ViewState("loadDataEmpty"), Boolean)
        End Get
        Set(ByVal value)
            ViewState("loadDataEmpty") = value
        End Set
    End Property
    Protected Sub fillDropDownList()
        Dim collectionVergaderingen As IDataReader = DatabaseAgent.selectUsersVergaderingen("ST")
        ddlVergaderingen.DataSource = collectionVergaderingen
        ddlVergaderingen.DataTextField = "titel"
        ddlVergaderingen.DataValueField = "vergaderingid"
        ddlVergaderingen.DataBind()
        collectionVergaderingen.Close()
        If ddlVergaderingen.Items.Count = 0 Then
            ddlVergaderingen.Visible = False
            lblError.Visible = True
            lblError.Text = "Er zijn geen vergaderingen gepland die u kunt wijzigen"
        Else
            lblError.Visible = True
            ddlVergaderingen.Visible = True
            ddlVergaderingen.Items.Add(New ListItem("Selecteer vergadering", -1))
            ddlVergaderingen.SelectedValue = -1
        End If


    End Sub

    Protected Sub DropDownList1_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles ddlVergaderingen.SelectedIndexChanged
        gvAgendaPunten.Visible = True
    End Sub

    Protected Sub odsAgendaPunten_Inserting(ByVal sender As Object, ByVal e As ObjectDataSourceMethodEventArgs) Handles odsAgendaPunten.Inserting
        e.InputParameters("agendaPunt") = CType(gvAgendaPunten.FooterRow.FindControl("txtAgendaPunt"), TextBox).Text
        e.InputParameters("vergaderingId") = ddlVergaderingen.SelectedValue
    End Sub

    Protected Sub odsAgendaPunten_Selected(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceStatusEventArgs) Handles odsAgendaPunten.Selected
        If Not e.Exception Is Nothing Then
            Throw e.Exception
        End If
        Dim d As DataTable = CType(e.ReturnValue, DataSet).Tables.Item(0)
        If d.Rows.Count = 0 Then
            d.Rows.Add(d.NewRow())
            loadDataEmpty = True
        Else
            loadDataEmpty = False
        End If
    End Sub

    Protected Sub odsAgendaPunten_Selecting(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.ObjectDataSourceSelectingEventArgs) Handles odsAgendaPunten.Selecting
        Console.Write("hallo")
    End Sub

    Protected Sub gvAgendaPunten_RowCommand(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewCommandEventArgs) Handles gvAgendaPunten.RowCommand
        If e.CommandName = "Save" Then
            odsAgendaPunten.Insert()
        End If
    End Sub

    Protected Sub gvAgendaPunten_RowCreated(ByVal sender As Object, ByVal e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles gvAgendaPunten.RowCreated
        If (loadDataEmpty) And e.Row.RowType = DataControlRowType.DataRow Then
            e.Row.Visible = False
            e.Row.Controls.Clear()
        End If
    End Sub

    Protected Sub gvAgendaPunten_SelectedIndexChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles gvAgendaPunten.SelectedIndexChanged

    End Sub
  
    Protected Sub btnAddAgendaPunt_Click1(ByVal sender As Object, ByVal e As System.EventArgs)
        DatabaseAgent.insertAgendaPunt(New DAgendaPunt(ddlVergaderingen.SelectedValue, CType(gvAgendaPunten.FindControl("txtAgendaPunt"), TextBox).Text))
    End Sub
End Class

arunendra wrote:

1.How to configure the machine

arunendra wrote:

2.I have used file dsn for crystal report

arunendra wrote:

3.what will be the ado conect string for the clients to connect to the database in the lan?

arunendra wrote:

if the folder in which the database resides is called "x', and the name of the mdb file is "data.mdb", then, how do I make sure that users can open from other locations,

arunendra wrote:

First of all what is UNC?

' sSrcPath is the source database file path
' sDstPath is the source database file path
' sUser is the username to use to login to the source database
' sPassword is the sUser's password
' sSystemPassword is the Database Password to use to login to the source
'                 and reset in the destination databases

Public Function CompactAndRepairDB( _
        sSrcPath As String, _
        sDstPath As String, _
        Optional sUser As String = "Admin", _
        Optional sPassword As String, _
        Optional sSystemPassword As String) _
            As Boolean
 
    Dim srcConn As String
    srcConn = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};User Id={1};Password={2};Jet OLEDB:Database Password={3}", sSource, sUser, sPassword, sSystemPassword)
 
    Dim dstConn As String
    dstConn = String.Format("Provider=Microsoft.Jet.OLEDB.4.0;Data Source={0};Jet OLEDB:Engine Type=5;Jet OLEDB:Database Password={1}", sDestination, sSystemPassword)
 
    Dim JRO As New JRO.JetEngine
    JRO.CompactDatabase(srcConn, dstConn)
 
    Return True
End Function