|
Approximately, if you have to call a method remotely, you are pretty much there.
Best,
Jun
|
|
|
|
|
i have a form in vb 6.0, and i want to add horizontal and vertical scrollbar on the form, idont have any idea. so please help me.
Thanks
Thanks
|
|
|
|
|
For example you can add components named HScrollBar and VScrollBar to your form.
Robert
|
|
|
|
|
Thanks for answer
yes i add both of them
i have so many controls on my form so form is too length therefore i want to use scrollbars.
but i dont know how i use them
Thanks
|
|
|
|
|
I think moving many controls placed on form isn't a good way.
I would look for better way for example I would place them in frame and move that frame, not separated controls.
Scroll bars have event "Changed". Use it.
By the way: use dotnet - learning vb6 is mistake.
Robert
|
|
|
|
|
Hi,
I'm trying to make sense out of charts in MS Access 2000.
What I want is a report with a record source that will return X rows of data.
My chart should now be displayed X times.
I know how to set this up, but cant get my chart to display the right data.
When I view it, it displays X charts but all with the same data which is the values of all X charts together.
How do I set it up that chart 1 displays only the data corresponding to, say, client 1?
When I set the Child and Master Fields property to that of the client ID for both the chart's row source and the reports record source, X blank charts are displayed!
you can't forget something you never knew...
|
|
|
|
|
how to use/call wordpad or msword in vb.net2005
Thanks
|
|
|
|
|
Right click ur Project and click properties-> select configuration properties from the left hand pane -> then debugging -> from start action, select Start external program radio button and browse the path for winword.exe or in case an application path (c:\Program files\Microsoft Office\ Office\ Winword.exe).
So after running the project u will find Word coming up......Check for VS.NET 2005, this is way for 2003..
I hope it will help.
Bye
|
|
|
|
|
Thank you it help a bit...
|
|
|
|
|
hii there
Use the following recurrsive operation instead. Pass control object instead of Form in the Function.
<br />
Public Sub TraverseControls(ByRef FormName As Control)<br />
Dim LvCont As Control<br />
For Each LvCont In FormName.Controls<br />
If (LvCont.Controls.Count > 0) Then<br />
TraverseControls(LvCont)<br />
End If<br />
<br />
' Process on LvCont<br />
Next<br />
End Sub<br />
regards
Mubashir
Storan Technologies USA.
|
|
|
|
|
If anyone know how make application that can convert code form ASP to ASP.NET or something please help me
Thanks
................
|
|
|
|
|
There's no such thing and no reliable way to do it, other than with your own two hands.
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
What is your anwser?
................
|
|
|
|
|
You have to rewrite it by hand!!
Dave Kreskowiak
Microsoft MVP - Visual Basic
|
|
|
|
|
i want to make a project of data migration in VB.net. In which i am able to transfer the data from one database tables to a blank database tables with in the same server
divya
|
|
|
|
|
|
i am not able to get the data from this link
can you please give me another information
divya
-- modified at 5:01 Monday 26th June, 2006
|
|
|
|
|
please can you give another suggesionsor link
divya
-- modified at 6:37 Wednesday 28th June, 2006
|
|
|
|
|
The link that I provide will give you an article of using vb.net and sql server. You should learn how to get data from sql server and save its back to sql server. This is the basic that you need to do with data manipulation from vb.net. Once you get all of its technique to use it, you would be able to solve your currentl problem.
Best Regard,
Kanel
|
|
|
|
|
please help me in completing this module
i want to transfer the data from one database to another within the same server. But there is a problem of identity column that exist in the table and it will unable the code to transfer the data within the new database
my coding is
Dim ObjSrcConnection As System.Data.SqlClient.SqlConnection
Dim ObjDesConnection As System.Data.SqlClient.SqlConnection
Dim TableListConn As SqlConnection
Dim cmd As SqlCommand
Dim ObjSrcCommand As SqlCommand
Dim ObjDesCommand As SqlCommand
Dim da As SqlDataAdapter
Dim ds As New DataSet
Dim dr As SqlDataReader
Dim dt As New DataTable
Dim query As String
Dim TableName As String
Dim TableListConnString As String
Dim strConSrc As String
Dim strConDest As String
Dim string1 As String
Dim TableQuery As String
Dim strCol As String
Dim strType As String
Dim sqlQuery As String
Dim intJ As Integer
Dim intK As Integer
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnGetTable.Click
Validation()
Table()
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnMigrate.Click
TableName = ListTable.Text
strConSrc = "server=" & txtSrcServer.Text.Trim & ";user id=" & txtUser.Text.Trim & ";password=" & txtPwd.Text.Trim & ";database=" & txtSrcDb.Text.Trim & ""
strConDest = "server=" & txtDesServer.Text.Trim & ";user id=" & txtDesUser.Text.Trim & ";pwd=" & txtDesPwd.Text.Trim & ";database=" & txtDesDb.Text.Trim & ""
ObjSrcConnection = New SqlConnection(strConSrc)
ObjSrcConnection.Open()
ObjDesConnection = New SqlConnection(strConDest)
'con2.ConnectionString = strConDest
ObjDesConnection.Open()
TableQuery = "select * from " & TableName
ObjSrcCommand = New SqlCommand(TableQuery, ObjSrcConnection)
dr = ObjSrcCommand.ExecuteReader(CommandBehavior.CloseConnection)
dt = dr.GetSchemaTable
Dim i As Integer = dt.Rows.Count
For intJ = 0 To i - 1
If intJ = 0 Then
strCol = dt.Rows(intJ).Item(0).ToString()
Else
strCol = strCol & "," & dt.Rows(intJ).Item(0).ToString()
End If
Next
If find1() = True Then
Exit Sub
End If
While dr.Read()
Try
'sqlQuery = "Insert into " & strValue & "(" & strCol & ") Values( " & Convert.ToString(dr.Item()) & "')"
sqlQuery = "Insert into " & TableName & "(" & strCol & ") Values( "
For intK = 0 To i - 1
If (intK = (i - 1)) Then
sqlQuery = sqlQuery & "'" & CStr(dr.Item(intK)) & "'"
Else
sqlQuery = sqlQuery & "'" & CStr(dr.Item(intK)) & "',"
End If
Next
sqlQuery = sqlQuery & ")"
ObjDesCommand = New SqlCommand(sqlQuery, ObjDesConnection)
ObjDesCommand.CommandType = CommandType.Text
Catch ex As Exception
MsgBox("Error in reading :" & ex.Message, MsgBoxStyle.DefaultButton1.Information, "Data Migration")
End Try
Try
ObjDesCommand.ExecuteNonQuery()
Catch ex As Exception
MsgBox("Error " & ex.Message, MsgBoxStyle.DefaultButton1.Information, "Data Migration")
Exit Sub
End Try
End While
ObjSrcConnection.Close()
ObjDesConnection.Close()
End Sub
Public Function Table()
Try
TableListConnString = "Server=" & txtSrcServer.Text.Trim & ";uid=" & txtUser.Text.Trim & ";pwd=" & txtPwd.Text.Trim & ";database=" & txtSrcDb.Text.Trim & ""
TableListConn = New SqlConnection(TableListConnString)
query = "select * from sysobjects where type='U'"
cmd = New SqlCommand(query, TableListConn)
TableListConn.Open()
Catch ex As Exception
MsgBox(" Entries are not correct :" & ex.Message, MsgBoxStyle.OKCancel.Information, "Data Migration")
Exit Function
End Try
da = New SqlDataAdapter(cmd)
da.Fill(ds)
ListTable.DataSource = ds.Tables(0).DefaultView
ListTable.DisplayMember = "name"
TableListConn.Close()
TableName = ListTable.Text
End Function
Public Function find1() As Boolean
Dim find2 As String
find2 = "Select name from syscolumns where id = object_id(" & TableName & ")and autoval is not NULL"
If Not (find2 Is Nothing) Then
MsgBox("There is an identity column in the table so we are not able to enter the data in table ", MsgBoxStyle.DefaultButton1.Information, "Data Migration")
Return True
End If
Exit Function
End Function
End Class
divya
|
|
|
|
|
SET indentity_insert YourTable ON
here goes insert
SET indentity_insert YourTable OFF
Robert
|
|
|
|
|
Hello,
I m using textbox to enter Phone no.
How can i restrict the maximum length to get data is 10.
Thanks in Advance
Regards
Mamathy
|
|
|
|
|
hi,
u textbox properties maximum length 10
in property window
bye
|
|
|
|
|
In button event
If not Textbox.Text.Length>10 Then
'Correct go here
Else
Msgbox("Phone to long"
End If
................
|
|
|
|
|
In button event
If not Textbox.Text.Length>10 Then
'Correct go here
Else
Msgbox("Phone to long")
End If
................
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
