Ir ao conteúdo

igor.oliveira

Membro Pleno
  • Posts

    46
  • Cadastrado em

  • Última visita

posts postados por igor.oliveira

  1. comprei esse fan esses dias: https://www.google.com.br/search?q=Fan+Xigmatek+120mm+(CLF-F1251%2F+2+Unidades&o que=Fan+Xigmatek+120mm+(CLF-F1251%2F+2+Unidades&aqs=chrome..69i57j69i60.457j0j7&sourceid=chrome&es_sm=93&ie=UTF-8

     

    Vem 2, um ta funcionando normal, o outro acende os led mas não gira ( 

    )

    Da pra aproveita esse fan de alguma forma ?

    Os cara até envia outro mas o frete pra enviar pra garantia ta 22 reais, não compensa levando em conta q paguei 30 reais em 2, saiu 15 cada.

  2. Estou com um problema em adicionar/editar/deletar novos itens na tabela, eu segui um tutorial e me levou ao código abaixo e funciona, ele lista os valores na combobox, mas ai eu clico em adicionar e abr e o form2 com dois textbox

     

    form1.vb:

    Imports System.DataImports System.Data.OleDbPublic Class Form1    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load        PPreenchaComboBox()    End Sub    Private Sub PPreenchaComboBox()        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT Nome FROM servidores"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                Dim da As OleDbDataAdapter = New OleDbDataAdapter                Dim dt As DataTable = New DataTable                da.SelectCommand = cmd                da.Fill(dt)                cmxNomeservidores.DisplayMember = "Nome"                cmxNomeservidores.DataSource = dt            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub PleDados()        Dim dr As OleDbDataReader = Nothing        Using con As OleDbConnection = GetConnection()            Try                con.Open()                Dim sql As String = "SELECT IP FROM servidores WHERE nome='" & cmxNomeservidores.Text & "'"                Dim cmd As OleDbCommand = New OleDbCommand(sql, con)                dr = cmd.ExecuteReader(CommandBehavior.SingleRow)                If dr.HasRows Then                    dr.Read()                    lbl_IP.Text = dr.Item("IP")                Else                    MsgBox("Não foi encontrado")                End If            Catch ex As Exception                MsgBox(ex.Message)            Finally                con.Close()            End Try        End Using    End Sub    Private Sub cmxNomeservidores_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cmxNomeservidores.SelectedIndexChanged        PleDados()    End Sub    Private Sub btn_addservidor_Click(sender As Object, e As EventArgs) Handles btn_addservidor.Click        Form2.Show()    End SubEnd Class

    mdlAcesso:

    Imports System.DataImports System.Data.OleDbModule mdlAcesso    Public Function GetConnection() As OleDbConnection        Dim sql As String = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\bancoservidores.accdb"        Return New OleDbConnection(sql)    End FunctionEnd Module
  3. Eu tinha um sorvete seco (ZTE) e eu descobri como abrir as configs dele.... depois disso não tive mais problemas... o tio google me ajudou

    fica em cima deles, eles tem de trocar. o que tu podes fazer é perguntar "na boa" se eles poderiam te passar as configs do modem, visto que tu quer trocar

    daí eles vão dizer que tu não podes....

    daí tu diz: já que não posso mexer, mandem alguem para arrumar essa $@#@%& se não eu troco de provedor. estou sem internet a X dias e ninguem vem aqui!!!!!! (fiz com a oi isso, eheheheh)

    KKK to quase mas acho que eles vão trocar quando vierem aqui, se não vim hoje, meu pai vai ficar phuto e vai concertesa amanhã la no provedor, ai eles vem rapidinho :)

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

LANÇAMENTO!

eletronica2025-popup.jpg


CLIQUE AQUI E BAIXE AGORA MESMO!