|
Sure, you just have to ask a question that is UNDERSTANDABLE!
|
|
|
|
|
I was amazed that he would think that CP's 'VB Go To Guy' would not be capable of helping.
I think he may be in a lot of trouble, not having English as a first language is not usually a barrier, I often re-edit for clarity, and people can work around that, but rudeness is just unacceptable.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
CCC Link[ ^]
Trolls[ ^]
|
|
|
|
|
basheer.j wrote: hw
Not a word.
basheer.j wrote: den
Where an animal lives?
basheer.j wrote: usin
No, got me there.
basheer.j wrote: usin
Still no wiser.
Perhaps if you used some kind of language that would be recognised by the majority of people here, and not the clicks and grunts that seems to pass for language in your illiterate world, you may get some response.
And the rudeness shown in the other post you made will not endear you to the community.
Keep trying though, you may get there one day.
------------------------------------
I will never again mention that I was the poster of the One Millionth Lounge Post, nor that it was complete drivel. Dalek Dave
CCC Link[ ^]
Trolls[ ^]
|
|
|
|
|
Hi, please clean your words. that looks very rude and shows you do not give importance to people who are there to help you here. This is not acceptable.
Second, Solution for you is:
Get data from DB into a DataReader/DataTable. Make use of a dynamic HTML Table and add HTMLTableRow and HTMLTableCells. Better still use asp:table rather than HTML table. Do some Google for syntax and code.
But, why reinvent wheel, when you can do something in neat way!
|
|
|
|
|
Thanks in advance
How to copy File folder over network
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
modified on Monday, March 28, 2011 4:25 AM
|
|
|
|
|
I would recommend File.Copy()
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Thanks 
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Thanks in advance, I am getting this error at Ftpwebresponse
The underlying connection was closed: An unexpected error occurred on a receive.
<br />
Const localFile As String = "C:\"<br />
Const remoteFile As String = "/Filder/File.ext"<br />
Const host As String = "ftp:
Const username As String = "UserName"<br />
Const password As String = "Pwd"<br />
<br />
<br />
Dim URI As String = host & remoteFile<br />
Dim ftp As System.Net.FtpWebRequest = CType(System.Net.FtpWebRequest.Create(URI), System.Net.FtpWebRequest)<br />
ftp.Credentials = New System.Net.NetworkCredential(username, password)<br />
ftp.KeepAlive = False<br />
ftp.UseBinary = True<br />
ftp.Method = System.Net.WebRequestMethods.Ftp.DownloadFile<br />
<br />
Using response As System.Net.FtpWebResponse = CType(ftp.GetResponse, System.Net.FtpWebResponse)<br />
Using responseStream As IO.Stream = response.GetResponseStream<br />
<br />
Using fs As New IO.FileStream(localFile, IO.FileMode.Create)<br />
Dim buffer(2047) As Byte<br />
Dim read As Integer = 0<br />
Do<br />
read = responseStream.Read(buffer, 0, buffer.Length)<br />
fs.Write(buffer, 0, read)<br />
Loop Until read = 0 'see Note(1)<br />
responseStream.Close()<br />
fs.Flush()<br />
fs.Close()<br />
End Using<br />
responseStream.Close()<br />
End Using<br />
response.Close()<br />
End Using<br />
Any Suggestions ??
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
modified on Monday, March 28, 2011 4:26 AM
|
|
|
|
|
Do you want to download a file from a FTP-server, or copy a file in your LAN using the filesystem?
In the first case;
Is the remote PC an FTP server? Can you reach it with a tool like CuteFTP?
In the second case;
You'll need code to recursively copy folders and files.
I are Troll 
|
|
|
|
|
Thanks for the reply , well i was trying to download file  from a machine on the local network, Cute FTP even cannot access it. thanks i think so i got the answer , but anyhow is it possible that we user FTP on a network, what is proffered to copy files on a network , i used File Copy API at last.
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
FTP won't work unless the server you're copying from is running an FTP server.
If this is a local network, I doubt it's runnig FTP. You're more likely copying files from a shared folder on the server. To get at those, you simply have to supply the normal File copy method and supply either a mapped drive letter path to the source, or a UNC path.
|
|
|
|
|
Thanks, Solved
SOFTDEV
Luck in life always exists in the form of an abstract class that cannot be instantiated directly and needs to be inherited by hard work and dedication.
|
|
|
|
|
Can I Export DataGridView to PDF without using MS Office 2007?
|
|
|
|
|
|
i have problem with data1, i am trying to network a project of mine in VB6..
the scenario is this,
i have an MS Flexgrid and i want to fill it with data from a Data1. the problem is that the ms access DB is located at the Local Server from our network at office.
i was able to manage at least to connect the DB using the code below
Option Explicit
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
---------------------------------------------------------------------------
Private Sub Form_Load()
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Dim strsql As String
'-- get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb ;Persist Security Info = False"
cn.Open
Set rs = cn.Execute("select * from dataTable")
End Sub
but i can't figure out how set the database name for data1
Data1.DatabaseName = "WHAT Should be the Path?"
Data1.RecordSource = ("select * dataTable order by Title")
how am i going to access the database and save it's content's to data1?
thanks in advance.
|
|
|
|
|
DatabaseName was the fully qualified path to your database. In your case, it's exactly the same as your Data Source value in your connection string.
\\IP Address or Computer Name\DIR\masterFile.mdb
|
|
|
|
|
got my database running over LAN. thanks for the tips...
|
|
|
|
|
hi,
i have a problem with my project. i have an existing system which is a stand alone app. using ms access 95 file format, created in VB6 using Visual Data Manager... well because it's a bit old system. but is runs quit very well.
the system owners decided to make the app. run over the network, they have a total of 10 workstations on their office. 1 is for the primary admin (Win7 OS) and 4 is for staff (Win7 OS). 5 are for users (Win XP SP2 OS). the database is located at workstation 1, the other computers wants to access the database.
here is a sample code given to me:
Option Explicit
Dim Conn As New ADODB.Connection
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
as the path
but i get an error "User-Define not defined" on
Dim Conn As New ADODB.Connection
am i missing something like an add-on or reference maybe, like in C# we used to add the reference for SQL connection.
do i need to install something?
|
|
|
|
|
loid grey manuel wrote: Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
I can only hope IP Address or Computer Name isn't what you are using...
Luc Pattyn [Forum Guidelines] [My Articles] Nil Volentibus Arduum
Please use <PRE> tags for code snippets, they preserve indentation, improve readability, and make me actually look at the code.
|
|
|
|
|
Are you saying that you throw an exception when you try to declare Conn?
This is VB6 isn't it?
|
|
|
|
|
Shouldn't that be "\\ComputerName\SHARENAME\DIR\masterfile.mdb"?
|
|
|
|
|
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=\\IP Address or Computer Name\DIR\masterFile.mdb"
Looks correct(if you replace with valid IP and DIR) but the error "User-Define not defined" tells that you didn't add the reference to your project.
To add the reference: click Project menu and Click References.
Now tick the checkbox 'Microsoft ActiveX Data Objects 2.x Library'.
|
|
|
|
|
thanks. i was able to open the database, but i cant seem to transfer the data to my record set
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
'Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\" & "ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
I get error on this line
MsgBox (myRecordSet.Fields("AdminId"))
the error is
runtym err '91'
object variable or with block variable not set
modified on Friday, March 25, 2011 6:15 AM
|
|
|
|
|
Can you show us the line where you assign a value to the MyRecordSet object? Have you verified that AdminId is not null for that particular record?
I are Troll 
|
|
|
|
|
after a long search i was able obtain the data needed for login. using the code below
Dim cn As ADODB.Connection
Dim myRecordSet As ADODB.Recordset
Dim strsql As String
'get db path
Set cn = New ADODB.Connection
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\IP Address or PC name\ucu\ucuMasterFile.mdb ;Persist Security Info = False"
cn.Open
Set myRecordSet = cn.Execute("Select * from tblAdmin")
i was able show the AdminId and PW using a MsgBox..
but when i try to login, somehow it does not allow me to continue. maybe with the verification?
here is the code for login:
Private Sub mnuLogin_Click()
If myRecordSet.BOF = True And myRecordSet.EOF = True Then
Exit Sub
End If
myRecordSet.MoveFirst
Do
If myRecordSet.Fields("AdminId") = txtid.Text And myRecordSet.Fields("AdminPw") = txtpw.Text Then
Unload Me
Unload frmTest
ucuLibMain.Show
Exit Sub
Else
lblerror.Caption = "Unable to Login: Invalid Username and/or Password"
End If
myRecordSet.MoveNext
Loop Until myRecordSet.EOF
End Sub
i get an error
runtym err '91'
object variable or with block variable not set
on the first line
If myRecordSet.BOF = True And myRecordSet.EOF = True Then so i can't continue..
need help. thanks again for quick replies..
modified on Friday, March 25, 2011 10:14 AM
|
|
|
|
General 
News 
Suggestion 
Question 
Bug 
Answer 
Joke 
Praise 
Rant 
Admin 
Submit an article or tip
