HI would like help !! I’m developing a chat within 3dmax so the listbox is not updating as it’s sent
————————-conect——————–
clearlistener()
dotNet.loadAssembly “C:\Program Files (x86)\MySQL\MySQL Connector Net 6.9.9\Assemblies\v4.5\MySql.Data.dll”
dotnet.loadassembly “System”
dotnet.loadassembly”SqlCommand.ExecuteReader”
dotnet.loadassembly “System.Data.SqlClient”
dotnet.loadassembly “System.DateTime”
host = “localhost” –The name of the MySQL server
database = “chat”– The name of the database to use
user = “root” – The user name to use
connection = “Database=” + database + “;Data Source=” + host + “;User id=” + user + “;Password=”
global DBConnection = dotNetObject “MySql.Data.MySqlClient.MySqlConnection”(connection)
DBConnection.Open()
print DBConnection.state.value__
DBConnection.close()
————————-conect——————–
global create_Chat
try(destroyDialog create_Chat)catch()
rollout create_Chat “Chat” width:412 height:194
(
edittext ‘edtpass’ “” pos:[199,8] width:125 height:17 align:#left
edittext ‘edtlog’ “” pos:[40,8] width:125 height:17 align:#left
label ‘lbl22’ “Login” pos:[7,10] width:30 height:14 align:#left
label ‘lbl23’ “Senha” pos:[167,8] width:34 height:18 align:#left
button ‘btlog’ “Login” pos:[331,9] width:48 height:16 align:#left
edittext ‘edtmens’ “” pos:[58,171] width:265 height:18 enabled:false align:#left
button ‘btenv’ “Enviar” pos:[325,171] width:40 height:19 enabled:false align:#left
label ‘lbl31’ “Mensagem” pos:[6,174] width:51 height:13 align:#left
listbox ‘lbx’ “” pos:[325,33] width:80 height:10 selection:1 align:#left
listbox ‘lbx1’ “” pos:[7,33] width:316 height:10 align:#left
button ‘btn9’ “Attach” pos:[371,173] width:37 height:16 enabled:false align:#left
on btlog pressed do
(
DBConnection.Open()
print DBConnection.state.value__
if (DBConnection.State != "1") then
(
DBConnection.close()
login= edtlog.text as string
senha = edtpass.text as string
cmdObject = DBConnection.CreateCommand()
cmdObject.commandText = ("SELECT login_name FROM login where login_name = '"+login+"' and senha = '"+senha+"'")
DBConnection.Open()
readerObject = cmdObject.ExecuteReader()
readerObject.RecordsAffected
readerObject.read()
)
else
(
messageBox"Servidor OFF"
DBConnection.close()
--DBConnection.Open()
)
if readerObject.read() != 0 then
(
readerObject.close()
cmdObject = DBConnection.CreateCommand()
cmdObject.commandText = "SELECT login_name FROM login"
readerObject = cmdObject.ExecuteReader()
readerObject.RecordsAffected
btn9.enabled=true
while readerObject.read() do
(
record = readerObject.item
for i = 0 to (readerObject.FieldCount - 1) do
lbx.items = append lbx.items((record[i]) as string)
)
-----------------------------------------------------------------------------------
DBConnection.close()
cmdObject = DBConnection.CreateCommand()
cmdObject.commandText = ("SELECT * FROM mensagem")
DBConnection.open()
readerObject = cmdObject.ExecuteReader()
--readerObject.RecordsAffected
while readerObject.read() do
(
record = readerObject.item
for i = 0 to (readerObject.FieldCount - 1) do
lbx1.items = append lbx1.items((record[i]) as string)
)
DBConnection.close()
-----------------------------------------------------------------------------------
)
else
(
messageBox "Usuario ou Senha invalido(s)"
edtpass.text = ""
edtlog.text = ""
DBConnection.close()
)
)
on btenv pressed do
(
lbx1.items = #(localTime+": para "+(lbx.selection as string)+": "+(edtmens.text as string))
mensagem = edtmens.text as string
id= lbx.selection as string
--id1= lbx.selection as string
DBConnection.close()
cmdObject = DBConnection.CreateCommand()
-- print ("insert into mensagem(mensagem, id_men_login) values ('"+mensagem+"',"+id1+")")
-- sqlmen = ("insert into mensagem(mensagem,id_men_login) values ('"+mensagem+"',"+id+")")
cmdObject.commandText = ("insert into mensagem(mensagem,id_men_login,anexo) values ('"+mensagem+"',"+id+","+maxFile1+")")
DBConnection.open()
readerObject = cmdObject.ExecuteReader()
--readerObject.RecordsAffected
--readerObject.close()
DBConnection.close()
edtmens.enabled = true
edtmens.text = ""
--escpress
--------------------------------------------------------------------------------------
)
on lbx doubleClicked sel do
(
edtmens.enabled = true
btenv.enabled = true
)
on btn9 pressed do
(
maxFile1 = getMAXOpenFileName filename:(GetDir #downloads+”\MakeWindow\doorObj”)
if doesFileExist maxFile1 do
(
btn9.text = filenameFromPath maxFile1
)
)
)
createdialog create_Chat