Click here to Skip to main content
15,892,746 members
Home / Discussions / Visual Basic
   

Visual Basic

 
QuestionListView Problem in vb.net Pin
pankajgarg123-Mar-06 22:25
pankajgarg123-Mar-06 22:25 
AnswerRe: ListView Problem in vb.net Pin
Dave Kreskowiak4-Mar-06 9:48
mveDave Kreskowiak4-Mar-06 9:48 
AnswerRe: ListView Problem in vb.net Pin
toxcct15-Mar-06 21:41
toxcct15-Mar-06 21:41 
QuestionTreeview Problem in vb.net Pin
pankajgarg123-Mar-06 22:17
pankajgarg123-Mar-06 22:17 
AnswerRe: Treeview Problem in vb.net Pin
Dave Kreskowiak4-Mar-06 9:45
mveDave Kreskowiak4-Mar-06 9:45 
Questionhow to read and write data to text file Pin
Murtuza Husain Miyan Patel3-Mar-06 21:53
professionalMurtuza Husain Miyan Patel3-Mar-06 21:53 
AnswerRe: how to read and write data to text file Pin
Dave Kreskowiak4-Mar-06 9:44
mveDave Kreskowiak4-Mar-06 9:44 
GeneralRe: how to read and write data to text file Pin
Murtuza Husain Miyan Patel5-Mar-06 2:37
professionalMurtuza Husain Miyan Patel5-Mar-06 2:37 
Dear Dave Kreskowiak,

Can u please reveiw my code to export he patient case in he textfile. Some friend told your notepad file must not be wordwrape. How can I do tha in my program.


Function ExportCases()
Dim MrecNo As String
Dim PtName As String
Dim PtDiagnosis As String
Dim PtHistory As String
Dim PHospital As String
Dim Ptsubspt As String
Dim EntryDate As Date
Dim ts As TextStream
Dim ExpStr As String
Dim sSQL As String
Dim PicComment As String
Dim pfno As String
Dim PicID As String
Dim i As Integer

On Error Resume Next

With FrmPicture
MrecNo = Trim(.TxtPCode.Text)
PtName = Trim(.TxtPName.Text)
PtDiagnosis = Trim(.TxtDiagnosis.Text)
PtHistory = Trim(.TxtHistory.Text)
PHospital = Trim(.TxtHospital.Text)
Ptsubspt = .CmbSubspcialitye.Text
EntryDate = .TxtDate.Value
End With

ExpStr = MrecNo & "@#$" & PtName & "@#$" & PtDiagnosis & "@#$" & PtHistory & "@#$" & PHospital & "@#$" & Ptsubspt & "@#$" & EntryDate & "@#$"
PicFolder.CreateFolder ExpPath & "\ExportedCases"
PicFolder.CopyFolder Trim(App.Path & "\Pictures\" & MrecNo), Trim(ExpPath & "\ExportedCases\" & MrecNo)
Set ts = PicFolder.CreateTextFile(ExpPath & "\ExportedCases\ImpCase.Text", True, True)
ts.WriteLine (ExpStr)

Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient

sSQL = "Select * from PicsDetail where PFno='" & MrecNo & "'"
Rst.Open sSQL, Conn
For i = 1 To Rst.RecordCount
pfno = Trim(Rst.Fields(0))
PicID = Trim(Rst.Fields(1))
PicComment = Trim(Rst.Fields(2))
ExpStr = pfno & "@#$" & PicID & "@#$" & PicComment & "@#$"
ts.WriteLine (ExpStr)
Rst.MoveNext
Next i

ts.Close

End Function
GeneralRe: how to read and write data to text file Pin
Dave Kreskowiak5-Mar-06 7:36
mveDave Kreskowiak5-Mar-06 7:36 
Questionstring to date conver Pin
illusionFinder3-Mar-06 20:38
illusionFinder3-Mar-06 20:38 
AnswerRe: string to date conver Pin
Jon Sagara3-Mar-06 20:42
Jon Sagara3-Mar-06 20:42 
AnswerRe: string to date conver Pin
Guffa3-Mar-06 21:58
Guffa3-Mar-06 21:58 
Questiondatagrid cell leave problem Pin
besnik rama3-Mar-06 13:24
besnik rama3-Mar-06 13:24 
AnswerRe: datagrid cell leave problem Pin
noshaba mariam3-Mar-06 17:21
noshaba mariam3-Mar-06 17:21 
AnswerRe: datagrid cell leave problem Pin
abhinish3-Mar-06 19:02
abhinish3-Mar-06 19:02 
QuestionUsercontrol name problem in VB 2005 Pin
jbwhiskeysix3-Mar-06 8:31
jbwhiskeysix3-Mar-06 8:31 
AnswerRe: Usercontrol name problem in VB 2005 Pin
Dave Kreskowiak3-Mar-06 13:42
mveDave Kreskowiak3-Mar-06 13:42 
QuestionGetting Information from a Web Site / Page Pin
VbRob3-Mar-06 8:27
VbRob3-Mar-06 8:27 
AnswerRe: Getting Information from a Web Site / Page Pin
Jeremy Falcon3-Mar-06 8:32
professionalJeremy Falcon3-Mar-06 8:32 
GeneralRe: Getting Information from a Web Site / Page Pin
VbRob3-Mar-06 8:37
VbRob3-Mar-06 8:37 
GeneralRe: Getting Information from a Web Site / Page Pin
Dave Kreskowiak3-Mar-06 13:36
mveDave Kreskowiak3-Mar-06 13:36 
GeneralRe: Getting Information from a Web Site / Page Pin
VbRob4-Mar-06 2:47
VbRob4-Mar-06 2:47 
GeneralRe: Getting Information from a Web Site / Page Pin
VbRob4-Mar-06 5:18
VbRob4-Mar-06 5:18 
GeneralRe: Getting Information from a Web Site / Page Pin
VbRob4-Mar-06 6:56
VbRob4-Mar-06 6:56 
GeneralRe: Getting Information from a Web Site / Page Pin
Dave Kreskowiak4-Mar-06 9:40
mveDave Kreskowiak4-Mar-06 9:40 

General General    News News    Suggestion Suggestion    Question Question    Bug Bug    Answer Answer    Joke Joke    Praise Praise    Rant Rant    Admin Admin   

Use Ctrl+Left/Right to switch messages, Ctrl+Up/Down to switch threads, Ctrl+Shift+Left/Right to switch pages.