|
I have this error when i run my program
"connection timeout expired"
i was using ADODC to retrieve data from MYSQL on at SP and show it on my
DATAgird.
wat happen? even i set the adodc on longer the connection timeout. but problem still exsist... will it because the network bandwidth slow so SQL cannot finish retrieve those data ?
My datagrid have those column fill name but no data inside when the error msg pop up .
-- modified at 2:25 Wednesday 8th November, 2006
|
|
|
|
|
3 suggestion
1.make sure you use the right connect String
2.make sure you can connect to the mysql server(you can try to telnet the server)
3.the mysql server have open the port (default if 3306)?
hope to help you!
|
|
|
|
|
i havet already check the connection string ans test the connection , is ok .
|
|
|
|
|
Hi,
I just want to generate Crystal reports for my current project.I'm bit new to this tool.can anyone let me know the links that will be helpful for me to generate the reports.
Thank you!
Sincerely,
Deepa
|
|
|
|
|
keep a crystalreportcontrol on ur form.(u have to add components if it is not there in ur toolbox)
set
with that control
.reportfilename----set to ur report
u can change the selection formula etc.etc.
.action=1 ' will show the report
|
|
|
|
|
here 3 question
1.how to use printer object to do the print preview?
2.now i use vba to find out all the picture in powerpoint,can give me a tips,how to use the printer Object to print(or use the ImagN Active's paintDC function)?
3.could anyone hava the ImagN Activex 4.0 Document?
hs
|
|
|
|
|
Can anyone give me an example.
ToolStripcollection.Item.Add(String, System.Drawing.Image, EventHandler)
I don't know how to create EventHandler
................
|
|
|
|
|
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.ToolStrip1.Items.Add("test", Nothing, AddressOf ButtonClickedEventHandler)
End Sub
Public Shared Sub ButtonClickedEventHandler(ByVal sender As Object, ByVal e As System.EventArgs)
MessageBox.Show("This is a test.")
End Sub
Mike Lasseter
|
|
|
|
|
Thanks, what about if want to show the message it's text.
i hope i can help me well...
................
|
|
|
|
|
Look at the properties in the e variable. It should be clear from there.
Mike Lasseter
|
|
|
|
|
Hi All
I hope someone can help with this.
I want to be able to load a file into VB.NET 2005 and return the first 11 integers from the file.
I found ReadAllBytes to load the information into memory.
Dim returnValue As Byte()<br />
returnValue = My.Computer.FileSystem.ReadAllBytes(txt_Path.Text & "\" & filename)
What I need to do now is to read the memory to return the value of the first 11 integers into a list box, either as numbers or as hex, so I can check the information in them.
I have seen lots of examples of ReadAllBytes being used but none getting any information from the file.
Or am I wanting to use ReadAllBytes in the wrong way?
Regards
Simon
|
|
|
|
|
Why not use a BinaryReader?
---
b { font-weight: normal; }
|
|
|
|
|
Hi Guffa
Thanks for that - it solved my problem.
Sometime all you need is a pointer to the solution.
Thanks again
Simon
|
|
|
|
|
Hi.
I have Excel file, which I'm trying to load into DataGrid. The problem I have is that in Excel file some columns have TEXT (like: OLYMPIA EXP) or NUMBER (like: 100084) as a value. Let's say columnt Vendor has the above values(OLYMPIA EXP and 100084).
My code doesn't throgh any errors but displays TEXT only missing NUMBER values. I cannot figure this one out.
HELP PLEASE.
Private Sub DB_Connect()<br />
Try<br />
DS = New System.Data.DataSet<br />
MyAdpapter = New System.Data.OleDb.OleDbDataAdapter<br />
MyConnection = New System.Data.OleDb.OleDbConnection( _<br />
"provider=Microsoft.Jet.OLEDB.4.0; " & _<br />
"data source=" & ExcelFilePath & "; " & _<br />
"Extended Properties=Excel 8.0")<br />
<br />
MyCmdSelect = New System.Data.OleDb.OleDbCommand("SELECT * FROM [Sheet1$]", MyConnection)<br />
MyConnection.Open()<br />
MyAdpapter.SelectCommand = MyCmdSelect<br />
MyAdpapter.Fill(DS, "[Sheet1$]")<br />
<br />
' Dim DV As DataView = DS.Tables(0).DefaultView<br />
'If Not sort = "" Then<br />
'DV.Sort = sort & Session("ORDER").ToString()<br />
'End If<br />
DG.DataSource = DS.Tables(0).DefaultView<br />
DG.DataBind()<br />
<br />
btnImport.Visible = False<br />
MyConnection.Close()<br />
<br />
Catch ex As Exception<br />
lblError.Text = ex.ToString()<br />
lblError.Visible = True<br />
End Try<br />
<br />
End Sub
|
|
|
|
|
Try and loop thru the DS to see whether the NUMBER columns are there or not.
Every job is a self portrait of the person who did it.
|
|
|
|
|
I did and it's empty for the numbers. It looks like reader assumes that all values have to be TEXT and cannot process different formats. What I've done is I changed Excel format all cells to TEXT and it still didn't do what I need. The only way to fix this is to format everything to TEXT and when go into number cells click inside and select TEXT format again from a menu. When it puts an explanation mark on the cell and treats it as a TEXT.
There's got to be easier way to go around this issue.
Any ideas?
Thank you,
|
|
|
|
|
Hi I found some code in an article posted on code project "Asynchronous Method Invocation" and was trying to follow the article, and convert it to vb.net, and got stuck at the last section of the article. I was wondering if anyone out there knows what the code below does, and how to convert it to vb.net. Thank you
<br />
private void CallBack(IAsyncResult ar)<br />
{<br />
DataSet ds = m_invokeMe.EndInvoke(ar);<br />
<br />
MethodInvoker updateGrid = delegate<br />
{<br />
m_grid.DataSource = ds.Tables[0];<br />
};<br />
<br />
if (m_grid.InvokeRequired)<br />
m_grid.Invoke(updateGrid);<br />
else<br />
updateGrid();<br />
}<br />
eatwork
|
|
|
|
|
I created a DLL in VB .NET and I want to use it in an excel application, but I cannot create a reference to it. Is there any other way to use it in Excel Application?
Thank you in advance
|
|
|
|
|
You need to put a 'com-wrapper' around the dll to allow it to be used via create object.
Progid - the string you use in the createobject argument (project.class)
Guid - get a new generated one from the IDE of vs.net
Imports System.Runtime.InteropServices
<ProgId("PROJECTNAME.CLASSNAME"), Guid("C4CAB66D-291F-4bd7-9D5C-2E417AB75F49"), ComVisible(True), _
ClassInterface(ClassInterfaceType.AutoDispatch)> _
Public Class CLASSNAME
.
.
.
End Class
|
|
|
|
|
Please help me I am just a fresher and I need to develop an application which will display a form on other system connected in LAN. I can display a message box on other systems in my LAN but unable to display a vb.net form. Please Help
Nakul Sharma
|
|
|
|
|
Hi,
Why do you want to display a vb.net form ? If you want to display some form there, you will have to deploy your application on that machine. Then you can send some message to that application to display some custom message.
Hope this helps !
"A good programmer is someone who looks both ways before crossing a one-way street." -- Doug Linder
coolestCoder
|
|
|
|
|
I'm vary interested to know how you're able to display a msgbox on a remote machine, but not a form.
(If possible please explain, or provide a small code snippet)
From my point of view it sounds like you need to develop a Client/Server Application that communicate through a common protocol, and have predefined commands.
|
|
|
|
|
try this
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect
txtcomputer.Text = TreeView1.SelectedNode.Text
TextBox1.Text = GetIPAddress(txtcomputer.Text)
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
If txtcomputer.Text <> "" And txtmessage.Text <> "" Then
Shell("net send " & txtcomputer.Text & " " & txtmessage.Text)
txtmessage.Text = ""
txtmessage.Focus()
End If
End Sub
Function GetIPAddress(ByVal CompName As String) As String
Dim oAddr As System.Net.IPAddress
Dim sAddr As String
Try
With System.Net.Dns.GetHostByName(CompName)
oAddr = New System.Net.IPAddress(.AddressList(0).Address)
sAddr = oAddr.ToString
End With
GetIPAddress = sAddr
Catch Excep As Exception
MsgBox(Excep.Message, MsgBoxStyle.OKOnly, "Lan Messenger")
Finally
End Try
End Function
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim childEntry As DirectoryEntry
Dim ParentEntry As New DirectoryEntry()
Try
ParentEntry.Path = "WinNT:"
For Each childEntry In ParentEntry.Children
Dim newNode As New TreeNode(childEntry.Name)
Select Case childEntry.SchemaClassName
Case "Domain"
Dim ParentDomain As New TreeNode(childEntry.Name)
TreeView1.Nodes.AddRange(New TreeNode() {ParentDomain})
Dim SubChildEntry As DirectoryEntry
Dim SubParentEntry As New DirectoryEntry()
SubParentEntry.Path = "WinNT://" & childEntry.Name
For Each SubChildEntry In SubParentEntry.Children
Dim newNode1 As New TreeNode(SubChildEntry.Name)
Select Case SubChildEntry.SchemaClassName
Case "Computer"
ParentDomain.Nodes.Add(newNode1)
End Select
Next
End Select
Next
Catch Excep As Exception
MsgBox("Error While Reading Directories")
Finally
ParentEntry = Nothing
End Try
End Sub
Private Sub CmdPing_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdPing.Click
Shell("PING " & TextBox1.Text)
End Sub
Private Sub CmdSendAll_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSendAll.Click
Shell("net send ALL " & txtmessage.Text)
End Sub
Private Sub CmdSend_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdSend.Click
If txtcomputer.Text <> "" And txtmessage.Text <> "" Then
Shell("net send GUI" & txtcomputer.Text & " " & txtmessage.Text)
txtmessage.Text = ""
txtmessage.Focus()
End If
End Sub
|
|
|
|
|
Its pretty obvious why you cant display anything else.
What you are doing is sending a message through the NET SEND commend, your not even using VB to display the message you can do the exact same thing from the command line.
I think my previous post clarifies what you need.
|
|
|
|
|
What you need to look at is Remoting[^]. It's a fairly advanced subject though.
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
