Visual Basic

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

arunendra wrote:

But in the code you sent string.format part is showing a compile error and the error says : "expected (". Is it problem in my vb? do i have to do something to rectify this error?

    Dim srcConn As String
    srcConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sSource & _
        ";User Id=" & sUser & _
        ";Password=" & sPassword & _
        ";Jet OLEDB:Database Password=" & sSystemPassword
 
    Dim dstConn As String
    dstConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & sDestination & _
        ";Jet OLEDB:Engine Type=5" & _
        ";Jet OLEDB:Database Password=" & sSystemPassword

arunendra wrote:

N.B. just now i have found something!! the code for the client doesnt run until i get into that particular machine where the database stored with a user id and password, so my question is can i integrate that machine user id and password in my code?

arunendra wrote:

1.for the first part (comapcting), the string (source) now looks like the following when it is passed to the function:
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=;User Id=Admin;password= ;Jet OLEDB:Database Password=bill1234
is the formation right?

arunendra wrote:

2. the part : oJet.CompactDatabase(srcConn, dstConn), gives a compiler error
"expected:="; if i remove the brackets, there is no error, will it work?

arunendra wrote:

3. if i try like that (with out bracket and with the string formed above, and when run,when the compactdatabase part comes, the error msg occures :
"object variable or with block variable not set"
what shall i do?

arunendra wrote:

you want me to map a drive, but how to do and in which machine i have to do?

arunendra wrote:

I have also found that, if I try with permissions for "Everyone" (permissions to read,list,write and execute) my problem would be solved. Do you think it's a good idea?

arunendra wrote:

furthermore, I dont see any user with this name or any group, but this word does work! can you explain a bit!

arunendra wrote:

N.B another thing! do you mind if I ask something else under this subject line. if yes then only i will ask.