|
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
|
|
|
|
|
I don't get it - so the example you gave me is NOT the table structure ? What's a TL ?
Christian Graus - Microsoft MVP - C++
|
|
|
|
|
Yes its not the table structure its a temporary one
TL is team leader
|
|
|
|
|
Hi,
I am trying to connect to a database using VB6, ADO and Access 2000. I have a combobox with the names of all the registered DNSs on the computer. When I select a DSN from the combobox I have to retrieve some records from the DB indicated by the chosen DSN. How can I connect to the database using the DSN name?
Thanks very much for your help,
dlarkin77
|
|
|
|