Comments by tarhex (Top 57 by date)

<!--?php

$host = "localhost";
$db = "sample";
$user = "admin";
$pass = "tarhe";

$conn = new PDO("mysql:host=$host;dbname=$db",$user,$pass);

$sql = "SELECT * FROM search_info";$q = $conn-?-->query($sql) or die("failed!");

$r = $q->fetch(PDO::FETCH_BOTH);
echo $r['userid'];

?>



In the place of fetch, I found out that fetch_assoc or fetch_both and some others can be used, they all produce the same result and I can't seem to find the difference.</xml?-->

Just putting this down for those who are having this kind of problem or those who don't know what the problem is when they encounter it. You will mainly encounter this problem when you put the datagrid on a groupbox that is in a tabpage and you make the groupbox background colour transparent. To solve this problem, remove the datagrid from the groupbox.

here is my code:

tab click event:

<pre lang="vb">Private Sub TabControl1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TabControl1.SelectedIndexChanged


If TabControl1.SelectedIndex = 5 Then

'load symptoms
loadSymptomsCmb()

'load patient diagnosis history
loadDiagnosisHistory(mqhModule.treatPatID)


'show doc name
txtDoc.Text = mqhModule.docName

ElseIf TabControl1.SelectedIndex = 6 Then


'load prescription history
loadprescription(mqhModule.treatPatID)

'load drugs
loadDrugsCmb()

'show doc name
txtDrugsBy.Text = mqhModule.docName

End If

End Sub</pre>


code to populate datagrid:

<pre lang="vb">Private Sub loadprescription(ByRef patID As String)



Try
'retrieve patient info
'retrieve patient info

'open database
conMod.openDB()


'get first student name list from database

Dim StrSQL As New SqlDataAdapter("SELECT drugs,medicine,dura,dosage,freq,drugInstruction " & _
"presTime,presDate,prescribeby " & _
" FROM patientprescription WHERE patientID='" & patID & "' ", conMod.Con)

Dim DR As New DataSet

StrSQL.Fill(DR)
StrSQL.Dispose()

Dim usertable As DataTable = DR.Tables(0)




'datasource of the datagrid
DGridPres.DataSource = usertable



'change the data grid column name
DGridPres.Columns(0).HeaderText = "Medication"
DGridPres.Columns(1).HeaderText = "Drug"
DGridPres.Columns(2).HeaderText = "Duration"
DGridPres.Columns(3).HeaderText = "Dosage"
DGridPres.Columns(4).HeaderText = "Frquency"
DGridPres.Columns(5).HeaderText = "Instruction"
DGridPres.Columns(6).HeaderText = "Time"
DGridPres.Columns(7).HeaderText = "Date"
DGridPres.Columns(8).HeaderText = "Prescribed-By"



'close database
conMod.closeDB()

'catch exception
Catch ex As Exception

'dsplay message
Dim mymsg As New myMsgbox

With mymsg
.txtError.Text = "Error! Could not retrieve Patient prescription Information."
End With

End Try


End Sub </pre