Stuck on Getting a Changed Value in a DropDownList within a DataList - Visual Basic Discussion Boards

Hi, i have a form which has a 1 datagrid and 12 label & textbox(like NAME, SURNAME, NATIONALITY, JOB etc..)and some buttons .I want to get data from database with one or more criteria (User if fill 2 criteria like NAME and SURNAME my query must be where NAME=txtname.text AND SURNAME=txtsurname.text) OR (user maybe fill only one criteria like NAME my query must be where NAME=txtname.text ) or (user maybe want to fill 8 or 6 or all criteria) and if user dont fill any criteria and click get button, query must be (Select * from ANABILGI) thats all..

I try to write a code below but unfortunately it was'nt worked.Would you somebody help me please.

Thanks a lot

Private Sub withcriteria()

Dim param As String = "ADI= txtad.Text & (param1) & SOYADI=txtsoyad.text & (param2)& BABAADI=txtbabaad.text & (param3)& ANAADI=txtanaad.text & (param4)& DYERI=txtdogumyer.text & (param5)& DTARIHI=txtdogumtar.text & (param6)& UYRUK=txtuyruk.text & (param7)& MESLEK=txtmeslek.text & (param8)& DIN=txtdin.text & (param9)& MEDENIHAL=txtmedenihal.text & (param10)& CINSIYET=txtcinsiyet.text & (param11)& TAHSIL=txttahsil.text"

Dim param1, param2, param3, param4, param5, param6, param7, param8, param9, param10, param11 As String

If txtad.Text.Length And txtsoyad.Text.Length And txtbabaad.Text.Length And txtanaad.Text.Length And txtdogumyer.Text.Length And txtdogumtar.Text.Length And txtuyruk.Text.Length And txtmeslek.Text.Length And txtdin.Text.Length And txtmedenihal.Text.Length And txtcinsiyet.Text.Length And txttahsil.Text.Length < 0 Then

Dim da As New OleDbDataAdapter("Select * from ANABILGI", baglan)

Dim ds As New DataSet

baglan.Open()

da.Fill(ds, "tablo")

DataGrid1.DataSource = ds.Tables("tablo")

baglan.Close()

DataGrid1.Select(DataGrid1.CurrentRowIndex)

Else

If txtad.Text.Length < 0 Then

param1 = "OR"

Else

param1 = "AND"

End If

If txtsoyad.Text.Length < 0 Then

param2 = "OR"

Else

param2 = "AND"

End If

If txtbabaad.Text.Length < 0 Then

param3 = "OR"

Else

param3 = "AND"

End If

If txtanaad.Text.Length < 0 Then

param4 = "OR"

Else

param4 = "AND"

End If

If txtdogumyer.Text.Length < 0 Then

param5 = "OR"

Else

param5 = "AND"

End If

If txtdogumtar.Text.Length < 0 Then

param6 = "OR"

Else

param6 = "AND"

End If

If txtuyruk.Text.Length < 0 Then

param7 = "OR"

Else

param7 = "AND"

End If

If txtmeslek.Text.Length < 0 Then

param8 = "OR"

Else

param8 = "AND"

End If

If txtdin.Text.Length < 0 Then

param9 = "OR"

Else

param9 = "AND"

End If

If txtmedenihal.Text.Length < 0 Then

param10 = "OR"

Else

param10 = "AND"

End If

If txtcinsiyet.Text.Length < 0 Then

param11 = "OR"

Else

param11 = "AND"

End If

End If

Dim da As New OleDbDataAdapter("Select * from ANABILGI where (param)", baglan)

Dim ds As New DataSet

baglan.Open()

da.Fill(ds, "tablo")

DataGrid1.DataSource = ds.Tables("tablo")

baglan.Close()

DataGrid1.Select(DataGrid1.CurrentRowIndex)

MAGICIANMERLIN wrote:
Dim param As String = "ADI= txtad.Text & (param1) & SOYADI=txtsoyad.text & (param2)& BABAADI=txtbabaad.text & (param3)& ANAADI=txtanaad.text & (param4)& DYERI=txtdogumyer.text & (param5)& DTARIHI=txtdogumtar.text & (param6)& UYRUK=txtuyruk.text & (param7)& MESLEK=txtmeslek.text & (param8)& DIN=txtdin.text & (param9)& MEDENIHAL=txtmedenihal.text & (param10)& CINSIYET=txtcinsiyet.text & (param11)& TAHSIL=txttahsil.text"

What are you expecting this to do ?

MAGICIANMERLIN wrote:
Dim da As New OleDbDataAdapter("Select * from ANABILGI where (param)", baglan)

What are you expecting to happen here ?

The easiest way to do this is to write a stored proc ( because the best way to do all of this is with stored procs ), that takes all of these possible search values, and searches using LIKE, so that you end up with blah LIKE % when no search paramater was provided. If you must do it creating SQL on the fly like this, then just build the query as you go. Either way, you should be parsing any input strings for SQL injection attacks.

Christian Graus - Microsoft MVP - C++

Thank you but i am not using sql database i am using Access database and i will try to do it in Access Queries if possible..

Thanks A lot for your kindly answer

Access may not be a real database, but last time I checked, it used SQL.

Christian Graus - Microsoft MVP - C++

[edit]Hello!
I want to center my text in the RichTextBox Control but i don't want use "\tab"
Is a solution exist ?
thank you for your answer .. [/edit]

I'm sorry but i've found my answer
i give the url : The RTF for RichTextBox

SeLoRBIS

Please help me this problem

This is nowhere near enough information to help you.

You're going to have to supply a better explanation of what your having a problem with. A code sample might also help.

RageInTheMachine9532
"...a pungent, ghastly, stinky piece of cheese!" -- The Roaming Gnome

I am trying to use a DropDownList for displaying and changing data within a database. As soon as I select a new value from the list and click the change link then look at the DropDownList selected index value in the Update_Command function it has changed back to the original value. Is there a way to capture the new value before the bind occurs so I can update the database?

---Code-----------------------------------------------------

<%@ Import Namespace="System.Data.OleDb"%>
<%@ Import Namespace="System.Data" %>

<%@ Page
Language="vb"
ValidateRequest="false"
AutoEventWireup="false"
enableViewState="True" %>
<%@ Import Namespace="nsGlobal" %>

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>Web Page</title>
<link rel="stylesheet" type="text/css" href="http://www.access.org/Aspx.css" media="screen">

<script language="VB" runat=server>

Dim sql as String
Dim idx as Integer
Dim StrucEvents as New clsStrucEvents

Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Request.IsSecureConnection Then
Dim sUrl as string
sUrl = Request.Url.ToString.Replace("http://www.access.org/",ConfigurationSettings.AppSettings("SecureUrl"))
Response.Redirect(sUrl)
End If

If Not IsPostBack Then
Dim PageStats as New clStats
PageStats.Load_PageStats()
End If

Fill_DonerDl

End Sub

Function ListTitleBlock() as String
Dim html as String
html = "<h2>"
html = html & "Doner List for "
html = html & StrucEvents.Id
html = html & "</h2>"
Return html

End Function

Sub Cancel_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
dlEventDonor.EditItemIndex = -1
dlEventDonor.DataBind()
End Sub

Sub Edit_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
dlEventDonor.EditItemIndex = e.Item.ItemIndex
dlEventDonor.DataBind()
End Sub

Sub Update_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
Dim strlstEdY as String, strlstEdD as String
strlstEdY = CType(e.Item.FindControl("lstEdY"), DropDownList).SelectedItem.Value
strlstEdD = CType(e.Item.FindControl("lstEdD"), DropDownList).SelectedItem.Value
Response.Write(strlstEdY & " " & strlstEdD & "<hr>")
End Sub

Sub Delete_Command(ByVal sender As Object, ByVal e As DataListCommandEventArgs)
End Sub

Function Fill_DataSource(strFld as String) as DataSet

Dim ds as DataSet = New DataSet()
Dim tbl As DataTable = New DataTable("tbl")
Dim col As DataColumn = New DataColumn(strFld)
tbl.Columns.Add(col)
ds.Tables.Add(tbl)
Dim Row As DataRow

Dim idx as integer

Select Case strFld
Case "EdY"
For idx = -4 to 5
Row = tbl.NewRow()
Row(strFld) = CStr(Year(DateAdd("yyyy",idx,Now)))
tbl.Rows.Add(Row)
Next

Case "EdM"
For idx = 1 to 12
Row = tbl.NewRow()
Row(strFld) = CStr(idx)
tbl.Rows.Add(Row)
Next
Case "EdD"
For idx = 1 to 31
Row = tbl.NewRow()
Row(strFld) = CStr(idx)
tbl.Rows.Add(Row)
Next

End Select

Session(strFld) = ds
Return ds

End Function

Function Get_SelectedIndex(strFld as String,strValue as string) as Integer
Dim iLoop as Integer

Dim dt as DataTable = Session(strFld).Tables("tbl")
For iLoop = 0 to dt.Rows.Count - 1
If strValue = dt.Rows(iLoop)(strFld) then
Return iLoop
End If
Next iLoop

End Function

''''''''''''''''''''''''''''''''
'''Database Access Functions '''
'\/''''''''''''''''''''''''''\/'
Private Sub Fill_DonerDl()

Dim objConn As OleDbConnection
Dim objComd As OleDbDataAdapter
Dim sql As String
Dim objDs as DataSet = New DataSet()
StrucEvents = Session("StrucEvents")

'On Error Resume Next

objConn = New OleDbConnection(ConfigurationSettings.AppSettings("Conn"))

sql = "SELECT "
sql = sql & "TblEventDonor.* "
sql = sql & "FROM TblEventDonor "
sql = sql & "WHERE "
sql = sql & "EdId = '" & StrucEvents.Id & "' "
sql = sql & ";"
'Response.Write(sql & "<hr>")
objComd = New OleDbDataAdapter(sql, objConn)
objComd.Fill(objDs,"TblEventDonor")

dlEventDonor.Datasource=objDs.Tables("TblEventDonor").DefaultView

DataBind()

objComd.Dispose()
objDs.Dispose()
objConn.Close()

End Sub

</script>

</HEAD>
<body MS_POSITIONING="GridLayout">

<form id="Form1" method="post" runat="server">

<div id='PageBox' style='width:100%;Left:0px;'>

<asp:DataList
runat="server"
Id="dlEventDonor"
BorderColor="#FFEF00"
BorderWidth="1"
GridLines="Both"
CellPadding="3"
CellSpacing="0"
OnEditCommand="Edit_Command"
OnCancelCommand="Cancel_Command"
OnUpdateCommand="Update_Command"
OnDeleteCommand="Delete_Command"
>

<HeaderTemplate>
<%# ListTitleBlock() %>
</HeaderTemplate>
<ItemTemplate>
<div class="Section1a">
<%# Container.DataItem("EdY")%>
<%# Container.DataItem("EdM")%>
<%# Container.DataItem("EdD")%>
<%# Container.DataItem("EdDonor")%>

<asp:LinkButton
Text="Edit"
CommandName="Edit"
Runat="server"
ID="edit" />
<asp:LinkButton
Text="Delete"
CommandName="Delete"
Runat="server"
ID="delete" />

<br>
</div>
</ItemTemplate>

<EditItemTemplate>
Year
..Month
<br>...Day:
<asp:Dropdownlist
DataTextField="EdY"
DataSource='<%# Fill_DataSource("EdY") %>'
SelectedIndex='<%# Get_SelectedIndex("EdY", Container.DataItem("EdY")) %>'
runat=server
ID="lstEdY"/>
</asp:Dropdownlist>

<asp:Dropdownlist
DataValueField="EdM"
DataTextField="EdM"
DataSource='<%# Fill_DataSource("EdM") %>'
SelectedIndex='<%# Get_SelectedIndex("EdM", Container.DataItem("EdM")) %>'
runat=server
ID="lstEdM"/>
</asp:Dropdownlist>

<asp:Dropdownlist
DataValueField="EdD"
DataTextField="EdD"
DataSource='<%# Fill_DataSource("EdD") %>'
SelectedIndex='<%# Get_SelectedIndex("EdD", Container.DataItem("EdD")) %>'
runat=server
ID="lstEdD"/>
</asp:Dropdownlist>

<asp:TextBox
Text='<%# DataBinder.Eval(Container.DataItem, "EdDonor") %>'
runat=server
ID="txtEdDonor"/>

<br>
<asp:LinkButton
id="button2"
runat="server"
Text="Update"
CommandName="update" />
<asp:LinkButton
id="button3"
runat="server"
Text="Cancel"
CommandName="cancel" />
</EditItemTemplate>

</ASP:DataList>
</div>
</form>
</body>
</HTML>

Thanks for any help!!

Steve

If there's a FAQ, this should be on it. The answer is no. You should wrap your databind in a !IsPostback block, so it does not bind on postback, it will get the data source along with the selected index from viewstate.

Christian Graus - Microsoft MVP - C++

I have created a custom principal class based on IPrincipal and have exteded it for additional properties and methogs such as .UserName, .UserID to return data and IsInAnyRole to accept a list of possible roles for a user. Is there a way that I can use Declarative security with this for something like...

Public Shared Sub _<br />
    [PrincipalPermissionAttribute(SecurityAction.Demand, IsInAnyRole:="Role1,Role2,etc...")] _<br />
    PrivateInfo()<br />
    <br />
        'Print secret data.<br />
        Console.WriteLine(ControlChars.CrLf + "You have access to the private data!")<br />
    End Sub

The isInAnyRole is not part of the PrincipalPermissionAttribute class though. Is there an easy way to write or extend it so that I can use it with extended methods from my custom principal class?

Thanks in advanvce for any help...

Dear friends
I am new in vb.net and i try to make a some sample for practice. I am using that code below

Dim cmddelete As New OleDbCommand("Delete from ANABILGI where ADI=@param1, AND SOYADI= @param2, AND BABAADI=@param3", baglan)
cmddelete.Parameters.Add("@param1", txtad.Text)
cmddelete.Parameters.Add("@param2", txtsoyad.Text)
cmddelete.Parameters.Add("@param3", txtbabaad.Text)
baglan.Open()
cmddelete.ExecuteNonQuery()
baglan.Close()

but if i try to run it it was an error (Name 'ExecuteNonQuery' is not declared)
-------------------------------------------------------------------------------------------------
but if i run that code with update statement it is working that code is also below

Dim cmdupdate As New OleDbCommand("Update ANABILGI SET ADI=@adi, SOYADI=@soyadi, BABAADI=@babaadi, ANAADI=@anaadi WHERE ID=@ind", baglan)
cmdupdate.Parameters.Add("@adi", txtad.Text)
cmdupdate.Parameters.Add("@soyadi", txtsoyad.Text)
cmdupdate.Parameters.Add("@soyadi", txtbabaad.Text)
cmdupdate.Parameters.Add("@soyadi", txtanaad.Text)
cmdupdate.Parameters.Add("@ind", DataGrid1.CurrentRowIndex + 1)
baglan.Open()
cmdupdate.ExecuteNonQuery()
baglan.Close()
Getalldataindatagrid()
DataGrid1.Refresh()
End Sub
--------------------------------------------------------------------------------------------------
Thank you for your valuable helps

The DELETE query should not have any commas.

Thank you for your help;

I was corrected it by the same way which an other friend help to me about this.But also thank you for your kindly interest..

can anyone of u tell me how can i get the remote Computer system informtaion
like ( memeory info, machine info , ports info )

you have to install some component over there . to whom you will query and it will reply you back. like web service. or any component deployed on Transaction server or through remoting.

Hi,
How to display the images in VB.NETDatagrid

Thanks

Hello All,

I am not sure if I am repeating the same question asked in this forum before.

Can we dynamically generate the reports, say, like an user selecting the required fields across DB tables (through a front-end), specifying the criteria -us building the SQL query- and fetching the result from the DB.

Any help on this would be appreciated.

Thanks

Yes, of course we can. You need to provide the user with a list of possible search fields, build your SQL from them, check for injection attacks, and run the query. Which bit are you stuck on ?

Christian Graus - Microsoft MVP - C++

Hi

First of all thanks for the reply

i am stuck at building sql query from the fields selected and then passing it on to the reports

Can you please help me out

Do you know any SQL at all ? I can't give advice that's any better than what google will offer unless I know what's in the tables you're searching.

Christian Graus - Microsoft MVP - C++

Yes i do know sql
I will give you a brief description with example

I have two different tables Say StuMaster and StuDetails

In StuMaster i have rollno,name,year
in studetails i have his rollno,addressinfo,marksinfo of eachsubject

Now i need something like selecting
rollno,name,year from master and marks of selected subjects of that year from the details table

So i will select the required subjects from the listbox and those fields are to be displayed onto the report.

Anonymous wrote:
marksinfo of eachsubject

Does this mean there's a column per subject, or are they all lumped in there ?

You want to select subjects, but that makes no sense, there's no column there to search by subject.

Christian Graus - Microsoft MVP - C++

each subject each column

and its search by column ie subject

You said : in studetails i have his rollno,addressinfo,marksinfo of eachsubject

Now you say : each subject each column

What does 'each subject each column' mean ? Each subject has it's own column ? So every possible subject has a column, even the ones a student is not taking ? That's *terrible* database design.

So how do you mark that a person didn't take a subjuct, is the column null ?

All you need to do is join on the ID, and check that the subject you want to recieve is not null. But the core problem is that if I understand you correctly, your database is crap. Are you able to change the schema to something reasonable ?

Christian Graus - Microsoft MVP - C++

its the example one christy its not the actual one actually my TL asked me to find out solution

so i made up an example for it