|
i think you are right! this thing may solve my problem.
Thanks very much
Thanks
|
|
|
|
|
using a button in vb.net 2003, how do i open a webform name wbpTest from another form by clicking the button?
(the equivalent to frmForm.show)
|
|
|
|
|
write this line in click event of button
Server.Transfer("wbpTest.aspx")
Thanks
-- modified at 5:58 Wednesday 14th June, 2006
|
|
|
|
|
Buenas, antes que nada les comento que es la primer pregunta que vierto en este espacio que tan gentilmente se nos ofrece para seguir progresando en este apasionante mundo de la programacion que nos compete. Gracias por todo, y ahora "a la pregunta se ha dicho".
Se me ha encomendado en mi empleo que desarrolle una winaplication (winform) que lo unico que haga sea detectar si esta instlado el framework (cualquiera de sus versiones) y en caso de que no este instale vamos a decir por ejemplo el frame 2.
Problemas:
1- primero no sabria como hacer que mi aplicacion detecte de manera confiable si esta el frame instalado, supongo que el asunto debe estar por explorar la registry o el GAC a la busqueda de las entradas de regustro pertinentes para la primera opcion a una .dll en la segunda.
2- Tampoco se como podira mi aplicacion instalar el frame, supongo que deben exisitr clases que ejecuten ejecutables, en esta direccion se me ocurre que puedo tener como parte del deploued de mi aplicacion el instalador del frame.
Bueno de antemando gracias y cualquiera que piense que puede ayudarme se lo agradezco enormemente. Hasta pronto!!
Lucas
|
|
|
|
|
Lucas,
This is an English language forum. I cannot read Spanish nor does www.freetranslation.com[^] or babelfish.altavista.com[^] make any sense of your post.
I think you are asking how to detect the presence or non-presence of the NET framework at installation time? If you can re-post in English we'll see what we can do to help.
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once 
|
|
|
|
|
<br />
Private Sub Image1_Click()<br />
Dim SMTP As Object<br />
Set SMTP = CreateObject("ANSMTP.Mail") <br />
SMTP.ServerAddr = "pophm.sympatico.ca" <br />
SMTP.FromAddr = "email@email.com" 'sender' email address<br />
SMTP.AddRecipient "Me", "email@email.com", 0 <br />
SMTP.BodyFormat = 1 <br />
SMTP.Subject = Text1.Text & Text2.Text <br />
SMTP.BodyText = Text1.Caption & Text2.Caption<br />
<br />
If SMTP.SendMail() = 0 Then 'send email<br />
MsgBox "Email delivered", vbOKOnly, "ANSMTP COM Object"<br />
Else<br />
MsgBox SMTP.GetLastErrDescription, vbOKOnly, "ANSMTP COM Object"<br />
End If<br />
<br />
End Sub<br />
When I try and run it it gives me a run-time error #429. I debug it and it highlights the third line. (Set SMTP = CreateObject...)
Hengy
I like Pie
|
|
|
|
|
Have you installed the component on the computer?
---
b { font-weight: normal; }
|
|
|
|
|
Hi,
i know that the title wasn't good but anyway i will explain as good as i can to let you see the problem
i have my two data files .Mdf & .Ldf in a folder named MyData in the bin folder where i have ma .exe file
in the vs.net i have this
Public Con As SqlConnection<br />
<br />
<br />
Public Sub main()<br />
bda:<br />
Con = New SqlConnection("data source=ORDI_AMINE;integrated security=SSPI;initial catalog=GHotel")<br />
CmdAt.Connection = Con<br />
Try<br />
Con.Open()<br />
Catch ex As Exception<br />
Con.Close()<br />
Con.ConnectionString = "data source=ORDI_AMINE;integrated security=SSPI;initial catalog=master"<br />
Con.Open()<br />
CmdAt.CommandText = "exec sp_attach_db @dbname = 'GHotel',@filename1 = '" & Application.StartupPath & "\MyData\GHotel_Data.MDF', @filename2 = '" & Application.StartupPath & "\MyData\GHotel_Log.LDF'"<br />
CmdAt.ExecuteNonQuery()<br />
Con.Close()<br />
GoTo bda<br />
' Con.Open()<br />
End Try<br />
FrmBien.ShowDialog()<br />
End Sub
GHotel is my database
when i do setup for ma app. it gaves me a bug by the opposite it works very well when i'm working in vs.net you can try it if you want to
can you tell me where is the problem ??
ah i forgot i added a folder named MyData to the app. Folder when i was creating the setup & i added in this folder the two files .Mdf & .Ldf
thank you very much 
try to be good if you can't be the best
|
|
|
|
|
Mohammed Amine wrote: when i do setup for ma app. it gaves me a bug by the opposite it works very well when i'm working in vs.net you can try it if you want to
Huh? What is the error you are getting? Posting code without the accompanying error is useless.
BTW, have you tried removing the leading '\' from the path you are constructing?
...Steve
1. quod erat demonstrandum
2. "Give a man a fish and you've fed him for a day. Teach him how to fish and you've fed him for life." I read that somewhere once
|
|
|
|
|
I'm using Visual Studio 2005 and I'd like to make a "Quick Print" button that finds the default printer on your computer and prints to it without a preview or dialog of any kind (like the print icon on office toolbars). Does anyone know the code to get the default printer?
|
|
|
|
|
Okay..I'll answer my own question. Even though I didn't want to use a print dialog control I added it to my form. Then I just used it without displaying it to the user so all of the printer settings that it contained were system defaults. It works, but it seems like a waste. If anyone knows of a nicer way to do it, I'd appreciate it.
|
|
|
|
|
Assuming you have a PrinterDocument control, use PrintDocument1.PrinterSettings.PrinterName to get the printer name.
|
|
|
|
|
I'm porting data from and mdb file to an empty sql server db.
I have a table in access when the PK column is an autonum. The corresponding column in sql server is set to int, identity=yes, identity seed=1, identity increment=1.
I'm getting data from the mdb and filling a table in a dataset. Then I'm trying to open an connection to a sql server db and invoke a sqldataadapter.fill method to insert the rows into the sql server table. It works but it generates new IDs for the PK column. I tried to set SET IDENTITY_INSERT PT_Attach ON to override this behavior but then it raises the exception "Explicit value must be specified for identity column in table 'PT_Attach' when IDENTITY_INSERT is set to ON".
I've tried to manually create an insert statement using IDENTITY_INSERT is set to ON and it works great. The sql table is empty so their will be no key constraints. How d I force sql server to use my identity values from the original table?
Thanks,
Glenn
|
|
|
|
|
I am working witn VB2003.net on a windows app. I have an on enter trigger of my text box on form1 that opens form2.
I am looking to get the data string entered into the text box on form2 back into the text field in form1 after form 2 is closed.
Does anyone have any ideas
|
|
|
|
|
Private Sub TextBoxOnForm1_Enter(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBoxOnForm1.Enter
Dim frm As New Form2
With frm
.ShowDialog()
Me.TextBoxOnForm1.Text = .TextBoxOnForm2.Text
End With
End Sub
|
|
|
|
|
I'm not familiar with VB.net, only VB 6.0, but can't you just put the following pseudocode in the "close" or "terminate" function of form 2? :
(in form 2 terminate function):
buffer = textBox1.caption
form1.textBox1.caption = buffer
Good luck!
|
|
|
|
|
Hi there.
I am playing with BLL and have hit a stumbleing block.
I am useing VS express 2005.
The DLL I have returns a DataTable.
Using the objectdatasource in asp.net 2.0 i connect to this DLL to get the select method that returns the datatable.
That works fine, when i run the asp page the gridview displays perfectly.
But In the editor it will not display the table schema, so I cannot see column headings etc.
In vb 2005 is there somthing i need to add to the class to return the schema? The code is
<code>CODE
Private Sub dbConn()
If Not conn Is Nothing Then conn.Close()
Dim connStr As String
connStr = "Server=localhost;Database=dls;Uid=blag;Pwd=blahblah;"
conn = New MySqlConnection(connStr)
End Sub
Public Function selectAllMessages() As DataTable
dbConn()
Dim da As MySqlDataAdapter
Dim Data = New DataTable("messages")
da = New MySqlDataAdapter("SELECT * FROM tbl_messages", conn)
conn.Open()
da.Fill(Data)
Return Data
End Function
</code>
Andrzej
|
|
|
|
|
how can we use sql DTS tool in vb.net?do we require sql server servicepack 2 for it?
|
|
|
|
|
please anybody put the source code for uploading the file from remote host to our server in vb.net Thank you.
|
|
|
|
|
might be a start href="http://www.developer.com/net/vb/article.php/10926_3424121_2
nothing change just rearrange
|
|
|
|
|
Hi ,
i have a typed dataset to count on it in using the crystal report .
this dataset contains two tables "Reserver" & "Reservation" i have done a relashion between the two .
i have wrote the code necessary but what i need now is how can i display this ??
Name of reserver : reserver.name_reser
telephone of reserver : tel_reser
...
and right here i wanna display all the reservation of this reserver like this :
num_resv date_resv hr_resv .... .... .... ....
. . . . . . .
. . . . . . .
. . . . . . .
i hope you understood me
thanks foe helping
ahh i forgot !! i will recuperate the num-reser from a text box in a form named frmresv wich contains the print bottun
& i have a num_reser fielsd in the reservation table
try to be good if you can't be the best
|
|
|
|
|
Hi,
I hope that you need to show the report in the master/detail report format.
Create the main report , which will display the master item like name of the reserver and the telephone number of the reserver,
In the detail band of the report you . Insert/Create the subreport and while doing that you link the two reports by the common field.
this can be done by clicking on the Link tab in the sub report properties.
Hope this will help you alot
Happy programming
|
|
|
|
|
thnx man i will try it
try to be good if you can't be the best
|
|
|
|
|
Does anyone know how to get a list of MSDE servers on a local network? Any help would be MUCH apreciated as I'm a little lost on this subject  thanks in advance!
Pablo
|
|
|
|
|
Imports System<br />
Imports System.Text<br />
Imports System.Windows.Forms<br />
Imports System.Runtime.InteropServices<br />
<br />
Public Class SQLLocator<br />
<br />
<DllImport("odbc32.dll")> Private Shared Function SQLAllocHandle(ByVal hType As Short, ByVal inputHandle As IntPtr, ByRef outputHandle As IntPtr) As Short<br />
End Function<br />
<br />
<DllImport("odbc32.dll")> Private Shared Function SQLSetEnvAttr(ByVal henv As IntPtr, ByVal attribute As Integer, ByVal valuePtr As IntPtr, ByVal strLength As Integer) As Short<br />
End Function<br />
<br />
<DllImport("odbc32.dll")> Private Shared Function SQLFreeHandle(ByVal hType As Short, ByVal handle As IntPtr) As Short<br />
End Function<br />
<br />
<DllImport("odbc32.dll")> Shared Function SQLBrowseConnect(ByVal hconn As IntPtr, ByVal inString As StringBuilder, ByVal inStringLength As Short, ByVal outString As StringBuilder, ByVal outStringLength As Short, ByRef outLengthNeeded As Short) As Short<br />
End Function<br />
<br />
Private Shared SQL_HANDLE_ENV As Short = 1<br />
Private Shared SQL_HANDLE_DBC As Short = 2<br />
Private Shared SQL_ATTR_ODBC_VERSION As Integer = 200<br />
Private Shared SQL_OV_ODBC3 As Integer = 3<br />
Private Shared SQL_SUCCESS As Short = 0<br />
Private Shared SQL_NEED_DATA As Short = 99<br />
Private Shared DEFAULT_RESULT_SIZE As Short = 1024<br />
Private Shared SQL_DRIVER_STR As String = "DRIVER=SQL SERVER"<br />
<br />
Public Shared Function GetServers() As String()<br />
Dim retVal As String() = Nothing<br />
Dim txt As String = String.Empty<br />
Dim henv As IntPtr = IntPtr.Zero<br />
Dim hconn As IntPtr = IntPtr.Zero<br />
Dim inString As New StringBuilder(SQL_DRIVER_STR)<br />
Dim outString As New StringBuilder(DEFAULT_RESULT_SIZE)<br />
Dim inStringLength As Short = CShort(inString.Length)<br />
Dim lenNeeded As Short = 0<br />
<br />
Try<br />
If SQL_SUCCESS = SQLAllocHandle(SQL_HANDLE_ENV, henv, henv) Then<br />
If SQL_SUCCESS = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, New IntPtr(SQL_OV_ODBC3), 0) Then<br />
If SQL_SUCCESS = SQLAllocHandle(SQL_HANDLE_DBC, henv, hconn) Then<br />
If SQL_NEED_DATA = SQLBrowseConnect(hconn, inString, inStringLength, outString, DEFAULT_RESULT_SIZE, lenNeeded) Then<br />
If DEFAULT_RESULT_SIZE < lenNeeded Then<br />
outString.Capacity = lenNeeded<br />
If SQL_NEED_DATA <> SQLBrowseConnect(hconn, inString, inStringLength, outString, lenNeeded, lenNeeded) Then<br />
Throw New ApplicationException("Unabled to aquire SQL Servers from ODBC driver.")<br />
End If<br />
End If<br />
txt = outString.ToString()<br />
Dim start As Integer = txt.IndexOf("{") + 1<br />
Dim len As Integer = txt.IndexOf("}") - start<br />
If start > 0 And len > 0 Then<br />
txt = txt.Substring(start, len)<br />
Else<br />
txt = String.Empty<br />
End If<br />
End If<br />
End If<br />
End If<br />
End If<br />
Catch ex As Exception<br />
txt = String.Empty<br />
Finally<br />
If Not hconn.Equals(IntPtr.Zero) Then<br />
SQLFreeHandle(SQL_HANDLE_DBC, hconn)<br />
End If<br />
If Not henv.Equals(IntPtr.Zero) Then<br />
SQLFreeHandle(SQL_HANDLE_ENV, hconn)<br />
End If<br />
End Try<br />
If txt.Length > 0 Then<br />
retVal = txt.Split(",".ToCharArray())<br />
End If<br />
Array.Sort(retVal)<br />
Return retVal<br />
End Function<br />
<br />
Public Shared Function GetCatalogs(ByVal SQLServer As String, ByVal userName As String, ByVal password As String) As String()<br />
Dim retVal As String() = Nothing<br />
Dim txt As String = String.Empty<br />
Dim henv As IntPtr = IntPtr.Zero<br />
Dim hconn As IntPtr = IntPtr.Zero<br />
Dim cnString As New StringBuilder(SQL_DRIVER_STR)<br />
Dim inString As New StringBuilder("SERVER=" + SQLServer + ";UID=" + userName + ";PWD=" + password + ";")<br />
Dim outString As New StringBuilder(DEFAULT_RESULT_SIZE)<br />
Dim cnStringLength As Short = CShort(cnString.Length)<br />
Dim inStringLength As Short = CShort(inString.Length)<br />
Dim lenNeeded As Short = 0<br />
<br />
Try<br />
If SQL_SUCCESS = SQLAllocHandle(SQL_HANDLE_ENV, henv, henv) Then<br />
If SQL_SUCCESS = SQLSetEnvAttr(henv, SQL_ATTR_ODBC_VERSION, New IntPtr(SQL_OV_ODBC3), 0) Then<br />
If SQL_SUCCESS = SQLAllocHandle(SQL_HANDLE_DBC, henv, hconn) Then<br />
If SQL_NEED_DATA = SQLBrowseConnect(hconn, cnString, cnStringLength, outString, DEFAULT_RESULT_SIZE, lenNeeded) Then<br />
If SQL_NEED_DATA = SQLBrowseConnect(hconn, inString, inStringLength, outString, DEFAULT_RESULT_SIZE, lenNeeded) Then<br />
If DEFAULT_RESULT_SIZE < lenNeeded Then<br />
outString.Capacity = lenNeeded<br />
If SQL_NEED_DATA <> SQLBrowseConnect(hconn, inString, inStringLength, outString, lenNeeded, lenNeeded) Then<br />
Throw New ApplicationException("Unabled to aquire SQL Catalogs from ODBC driver.")<br />
End If<br />
End If<br />
txt = outString.ToString()<br />
Dim start As Integer = txt.IndexOf("{") + 1<br />
Dim len As Integer = txt.IndexOf("}") - start<br />
If start > 0 And len > 0 Then<br />
txt = txt.Substring(start, len)<br />
Else<br />
txt = String.Empty<br />
End If<br />
End If<br />
End If<br />
End If<br />
End If<br />
End If<br />
Catch ex As Exception<br />
'Throw away any error if we are not in debug mode<br />
txt = String.Empty<br />
Finally<br />
If Not hconn.Equals(IntPtr.Zero) Then<br />
SQLFreeHandle(SQL_HANDLE_DBC, hconn)<br />
End If<br />
If Not henv.Equals(IntPtr.Zero) Then<br />
SQLFreeHandle(SQL_HANDLE_ENV, hconn)<br />
End If<br />
End Try<br />
If txt.Length > 0 Then<br />
retVal = txt.Split(",".ToCharArray())<br />
End If<br />
Return retVal<br />
End Function<br />
End Class
Jim
|
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
