MSFLEXGRID problem

[sreegans]

Hi...

Below is my code:

Dim trs As New ADODB.Recordset
Public cn As ADODB.Connection
 
 
Public Sub databaseconnect()
Set cn = New ADODB.Connection
cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=hrms;Data Source=."
End Sub
 
 
Private Sub Combo1_Click()   ' pcode
 
Do While MSFlexGrid1.Rows > 1
 MSFlexGrid1.RemoveItem (MSFlexGrid1.Rows)
Loop
 
If Combo1 <> "" Then
trs.Open "select * from prjmaster where pcode = '" & Combo1 & "'", cn
Label7 = trs.Fields(1)
trs.Close
End If
 
trs.Open "select empid from prjtrans where pcode='" & Combo1 & "'", cn
 
Dim ers  As Recordset
 
Do While Not trs.EOF
 
If trs.RecordCount > 0 Then
ers.Open "select empname from empmaster where empid= " & trs.Fields(0), cn
 
           MSFlexGrid1.AddItem ("")
           MSFlexGrid1.Col = 1
           MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
           MSFlexGrid1.Text = trs.Fields(0)
           MSFlexGrid1.Col = 2
           MSFlexGrid1.Text =ers.Fields(1)
           End If
           trs.MoveNext
           Loop
  trs.Close
End Sub
 
Private Sub Combo2_Click()           'empid
If Combo1 <> "" Then
trs.Open "select * from empmaster where empid = " & Combo2, cn
Label9 = trs.Fields(1)
trs.Close
End If
End Sub
 
 
Private Sub Command1_Click()           'ADD BUTTON
trs.Open "select pcode from prjtrans where pcode = '" + pcode + "'" + "and empid =" + Combo2, cn
cn.Execute "insert into prjtrans values('" & Combo1 & "'," & Combo2 & ",'" & DTPicker1.Value & "','" & DTPicker2.Value & "','" & Combo3.Text & "')"
 
 
            MSFlexGrid1.AddItem ("")
            MSFlexGrid1.Col = 1
            MSFlexGrid1.Row = MSFlexGrid1.Rows - 1
            MSFlexGrid1.Text = Combo2.Text
            MSFlexGrid1.Col = 2
            MSFlexGrid1.Text = Label9
 
            trs.Close
 
End Sub
 
 
Private Sub Form_Load()
Call databaseconnect
 
trs.Open "select * from prjmaster", cn
Do While Not trs.EOF
Combo1.AddItem trs.Fields(0)
trs.MoveNext
Loop
trs.Close
 
trs.Open "select * from empmaster", cn
Do While Not trs.EOF
Combo2.AddItem trs.Fields(0)
trs.MoveNext
Loop
trs.Close
 
Combo3.AddItem "Group Leader"
Combo3.AddItem "Group Member"
 
 
 
MSFlexGrid1.ColWidth(0) = 0
MSFlexGrid1.ColWidth(2) = 1800
 
MSFlexGrid1.Col = 1
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "Emp ID"
 
MSFlexGrid1.Col = 2
MSFlexGrid1.Row = 0
MSFlexGrid1.Text = "Name"
 
End Sub

My problem is... the values inserted in the prjtrans table... cant get viewable in the flexgrid control while clicking the combo1...
By clicking command1... at tht time...the inserted value gets displayed in the flexgrid...

i cant able to retrieve..from prjtrans...to show in flexgrid while clicking combo1...


Pl...help me...

Sree,

[debasisdas]

Change your sql string to

"select * from prjmaster where pcode = '" & Combo1.list(combo1.listindex) & "'"

also try to execute on Change event of the combo.

[sreegans]

Hi..

Thks a lot...

Sree..