it's done what about adding tooltip when a user moves his mouse to a record? it will show up something from the same row from the database?

ohh..how can i do that? can u give an example? i'm really puzzled..thanks..:confused:

hi. i'd like to ask how can i change the font color of a specific row on a datagrid based from conditions? ex: if it sees "CRITICAL" anywhere on the row, it will change the entire row's font color to red and if it sees "WARNING" to green.. etc... pls help me how can i do that? here's my code: Sub Page_Load(Sender As Object, E As EventArgs) 'some codes MyCommand = New SqlDataAdapter("SELECT ReceivedTime, SenderName, Subject FROM NewMessages where Subject not like '%alertlog%' and Subject like '%ars%' ", MyConnection) DS = new DataSet() MyCommand.Fill(ds, "NewMessages") MyDataGrid.DataSource=ds.Tables("NewMessages").DefaultView MyDataGrid.DataBind()

MARS

i have this code and i want this as a windows service. i like this to execute every 20 secs Dim olapp As New Outlook.Application Dim olNs As Outlook.NameSpace Dim myrecipient, myfolder Dim myitems As Outlook.Items Dim mymail As Outlook.MailItem Dim myitem As Object Dim myConnection As SqlConnection Dim myCommand As SqlDataAdapter Dim cmd As New SqlCommand olapp = CreateObject("Outlook.application") olNs = olapp.GetNamespace("MAPI") myrecipient = olNs.CreateRecipient("someusername") myrecipient.resolve() If myrecipient.resolved Then myfolder = olNs.GetSharedDefaultFolder(myrecipient, Outlook.OlDefaultFolders.olFolderInbox).Items End If myitems = myfolder myConnection = New SqlConnection("Data Source=.....") myCommand = New SqlDataAdapter myitems = myitems.Restrict("[Unread] = true") myConnection.Open() For Each myitem In myitems On Error Resume Next cmd = New SqlCommand("Insert into NewMessages (EntryID,SenderName,Subject,ReceivedTime,Body,UnRead) values(@EntryID ,@SenderName,@Subject,@ReceivedTime,@Body,@UnRead)", myConnection) cmd.Parameters.Add(New SqlParameter("@EntryID", SqlDbType.Variant)) cmd.Parameters("@EntryID").Value = myitem.entryid cmd.Parameters.Add(New SqlParameter("@SenderName", SqlDbType.NVarChar, 100)) cmd.Parameters("@SenderName").Value = myitem.sendername cmd.Parameters.Add(New SqlParameter("@Subject", SqlDbType.NVarChar, 1000)) cmd.Parameters("@Subject").Value = myitem.subject cmd.Parameters.Add(New SqlParameter("@ReceivedTime", SqlDbType.DateTime)) cmd.Parameters("@ReceivedTime").Value = myitem.ReceivedTime cmd.Parameters.Add(New SqlParameter("@Body", SqlDbType.Variant))cmd.Parameters("@Body").Value = myitem.Body cmd.Parameters.Add(New SqlParameter("@UnRead", SqlDbType.NChar, 5))cmd.Parameters("@UnRead").Value = myitem.UnRead cmd.ExecuteNonQuery() Next myitem myConnection.Close() olapp = Nothing olNs = Nothing myrecipient = Nothing myfolder = Nothing myitem = Nothing myitems = Nothing myrecipient = Nothing i've already created a service for this one but, on its first start, it extracts unread mails, but when new mails come, it does not extract anything and when i checked on the application log it says, Microsoft Office 11 - Rejected safe mode action - Microsoft Outlook. on the system log: DCOM - The server {0006F03A-0000-0000-C000-000000000046} did not register with DCOM within the required timeout. I already uninstalled and killed the service but i'm still getting this errors on the eventlog. why is this so? i think i

hi utsav, up and running now.. ;) thanks..

hi mike, cool..:) thanks.. i'm up there.. but it only highlighted the column that has the fatal or warning string.. what about highlighting the whole row?

hi..how can i set the row color of a data repeater in asp.net/vb.net for example, on a record, it sees a "FATAL" on the value of the field and i want to color the row RED. if it sees "WARNING" then color yellow.. how can i do that in a data repeater? a sample code would help to get me started.. thanks.. what i have is: Sub Page_Load(sender As Object, e As EventArgs) Dim myConnection As SqlConnection Dim myCommand As SqlDataAdapter myConnection = New SqlConnection("Data Source................. myCommand = New SqlDataAdapter("SELECT * FROM [New Messages]", _ myConnection) Dim ds As Dataset = new DataSet() myCommand.Fill(ds) MyRepeater.DataSource = ds MyRepeater.DataBind() end sub

Resource Name

Status

<%# DataBinder.Eval(Container.DataItem, "SenderName") %>

<%# DataBinder.Eval(Container.DataItem, "Subject") %>

i don't think this will solve my problem.. :(

how can i do a collapsing effect when u click a link, it will show some details, then when clicked again, it will collapse.. like with this forum? anyone? thanks..

hi.. i'd like to get all the emails from an additional mailbox in outlook (not my personal account). how can i possibly do that without using POP3? i tried outlook automation but populating all the emails is very slow.. it takes up to 10 mins to load 2000+ emails. how can i possibly do that? pls help me.. i'm stucked on this project.. :(

hi.. i've used outlook automation to extract e-mails from our exchange server.. my problem is i can't think of any control that can hold the e-mails.. when i use a listbox, it takes like 10 mins to download the contents of my e-mail.. what control can u suggest so it will load faster? thanks.. here's my code: Dim ol As Outlook.Application Dim olns As Outlook.NameSpace Dim myRecipient, myfolder, numitems, myitems Dim i As Integer ol = New Outlook.Application olns = ol.GetNamespace("MAPI") myRecipient = olns.CreateRecipient("ITMC L2 DSS-ALERT HUB") myRecipient.Resolve() myfolder = olns.GetSharedDefaultFolder _ (myRecipient, Outlook.OlDefaultFolders.olFolderInbox) MsgBox("You have " & myfolder.items.count & " message", vbInformation) numitems = myfolder.Items.Count myitems = myfolder.Items For i = 1 To numitems ListBox1.Items.Add(myitems(i).subject) Next

hi.. how can i access the folders of additional ms exchange accounts with outlook automation? it always gives me the default folder which is my inbox but i want to retrieve the e-mails from the other e-mail accounts.......i've already setup those and there's no need for a password to open them.. hope u can help me.. thanks

hi.. i used WMI to collect information from the remote pc's such as available disk space.. but the thing is 2 pc's has this exception: System.Runtime.InteropServices.COMException (0x800706BA): The RPC server is unavailable. at System.Runtime.InteropServices.Marshal.ThrowExceptionForHR(Int32 errorCode, IntPtr errorInfo) at System.Runtime.InteropServices.Marshal.ThrowExceptionForHR(Int32 errorCode) at System.Management.ManagementScope.InitializeGuts(Object o) at System.Management.ManagementScope.Initialize() at System.Management.ManagementObjectSearcher.Initialize() at System.Management.ManagementObjectSearcher.Get() at AutomationProject.WebForm4.diskdriveKMMARS() in C:\Inetpub\wwwroot\AutomationProject\WebForm4.aspx.vb:line 146 why is that so? the pc's were setup as " copied exactly from each other... any help? thanks...

thanks Dave.. always been very helpful.. :)

Hi Mike, A process writes on the log file from the oldest date to the latest. I have to extract first the latest ( which is at the end of the log) I have to search for the “warning” or “critical string“ I have a code that reverses the reading of the log file but my problem is, the details next to it was written also in a reverse manner.. like this… 03/03/05 11:34:04: 03/03/05 11:34:04:AC4_PROD_17.XIE1F_LOTSUBPRODUCTHIST. object has grown from 2128 to 2129 extents 03/03/05 11:34:04:AC2_PROD_8.XIE3F_LOTTXNHIST. object has grown from 4700 to 4701 extents 03/03/05 11:34:04:AC2_PROD_8.XIE1F_LOTSUBPRODUCTHIST. object has grown from 5603 to 5604 extents 03/03/05 11:34:04:AC2_PROD_8.XIE2F_LOTPARAMHIST. object has grown from 8351 to 8352 extents 03/03/05 11:34:04:AC2_PROD_8.XIE3F_LOTHIST. object has grown from 3651 to 3652 extents 03/03/05 11:34:04:AC2_PROD_8.XIE1F_ENTITYPARAMHIST. object has grown from 5542 to 5543 extents 03/03/05 11:34:04:ERROR#**** Error: marsprod@cvspwcora010n2:MARS:object_extent_growth:WARNING ERROR Here’s my code: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Dim fs As FileStream = File.Open("\\cvspwcora010\d$\oracle\admin\log\oramon_marsprod.log", FileMode.Open, FileAccess.ReadWrite, System.IO.FileShare.ReadWrite) Dim streamReader As New StreamReader(fs) Dim stringresult As String = streamReader.ReadToEnd Dim arLogLines() As String = stringresult.Split(vbNewLine) Dim i = 0 Dim b = Len(arLogLines(i)) For i = arLogLines.Length - 1 To 0 Step i - 1 ' If InStr(arLogLines(i), "WARNING") Or InStr(arLogLines(i), "CRITICAL") Then Response.Write(" " & arLogLines(i) & "
") ' Response.Write(" " & arLogLines(i) & "
") ' End If Next End Sub anyone? thanks

hi..what are regular expressions? i'd like to extract the lines between the warning or critical error and the line before the blank space after the time stamp

hi.. i'd like to ask how can i read and search the contents of a log file from a remote computer? i've attached a sample log file and i want to search for "warning" or "critical error" based on the current date and time.. and i will display on a web page the next lines of it.. until it sees a blank space right next to the time stamp. any idea how to do that in vb.net? hope you can help me.. thanks.. what do i have to use? here's an example from the text file: ################################################################################################### 11/27/04 17:47:14:LOG FILE: D:\ORACLE\ADMIN\log\oramon_marsprod.log LEVEL: 1 PID: 1404 ################################################################################################### 11/27/04 17:47:14:************** ORAMON version: 1.0.6 (build: Jan, 28, 2003) ************* 11/27/04 17:49:15:ERROR#************* MONITOR: archive_dir_space ************** 11/27/04 17:49:15:ERROR#'(%PCT_FREE% >= 10 and %PCT_FREE% < 25)' (evaluated: '(15.8708639888514 >= 10 and 15.8708639888514 < 25)') is violated. 11/27/04 17:49:15:ERROR# DIR_NAME: Y:\oracle\MARS\archive 11/27/04 17:49:15:ERROR# TOTAL_BYTES: 65032785920 11/27/04 17:49:15:ERROR# FREE_BYTES: 12268359680 11/27/04 17:49:15:ERROR# PCT_FREE: 15.8708639888514 11/27/04 17:49:15:ERROR#**** Skipping mail for 'Y:\oracle\MARS\archive@1' 11/27/04 17:49:15:ERROR#***** The following mail will not be delivered 11/27/04 17:49:15:ERROR#Archive Directory: Y:\oracle\MARS\archive has low disk-space (TOTAL: 65032785920 bytes, FREE: 12268359680 bytes, 15.8708639888514 %free). Please make sure that ORABCK is running on the machine and other system files are not using an increased amount of space. 11/27/04 17:49:15:Evaluating pcond=> (15.8708639888514 < 2) 11/27/04 18:39:16:ERROR#************* MONITOR: ora_parameter ************** 11/27/04 18:39:16:ERROR#'('%PARAM_NAME%' ne 'open_cursors' and %PARAM_PCT_FREE% >= 6 and %PARAM_PCT_FREE% < 21)' (evaluated: '('db_files' ne 'open_cursors' and 19 >= 6 and 19 < 21)') is violated. 11/27/04 18:39:16:ERROR# PARAM_NAME: db_files 11/27/04 18:39:16:ERROR# ID: 11/27/04 18:39:16:ERROR# PARAM_CUR_VALUE: 205 11/27/04 18:39:16:ERROR# PARAM_MAX_VALUE: 256 11/27/04 18:39:16:ERROR# PARAM_PCT_FREE: 19 11/27/04 18:39:16:ERROR#**** Skipping mail for 'db_files@1' 11/27/04 18:39:16:ERROR#***** The following mail will not be delivered 11/27/04 18:39:16:ERROR#'db_files' init.ora parameter (current: 205, max: 256) has low resource free%: 19. This is a symptom of incorrect init.o

oh i see.. :( thanks for the help anyway... regards, leny :)

yeah.. but how can i possibly access the file? a separate process is also accessing the text file

The process cannot access the file "\\cvspwcora010\d$\oracle\Admin\log\oramon_marsprod.log" because it is being used by another process. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: System.IO.IOException: The process cannot access the file "\\cvspwcora010\d$\oracle\Admin\log\oramon_marsprod.log" because it is being used by another process. Source Error: Line 27: Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Line 28: Dim myFileReader As System.IO.StreamReader Line 29: myFileReader = System.IO.File.OpenText("\\cvspwcora010\d$\oracle\Admin\log\oramon_marsprod.log") Line 30: Dim myString As String Line 31: myString = myFileReader.ReadToEnd hi.. any idea why this happens? thanks